Help me! Я не могу решить эту задачу.​

Задача 1:

var a:array[1..15] of integer;

i:integer;

begin

   for i:=1 to length(a) do begin

       a[i]:=random(-101)+50;

       writeln('a[',i,']=', a[i]);

   end;

end.

Задача 2:

var i:integer;

a:array[1..20] of integer;

b:array[1..20] of integer;

c:array[1..20] of integer;

begin

   for i:=1 to length(a) do begin

       a[i]:=random(-21)+10;

       b[i]:=random(-21)+10;

       c[i]:=a[i]+b[i];

       write(a[i]:3, ' ');

   end;

   writeln();

   for i:=1 to length(b) do write(b[i]:3, ' ');

   writeln();

   for i:=1 to length(c) do write(c[i]:3, ' ');

end.

Задача 3 (ряд Фибоначчи):

var i:integer;

a:array[1..20] of integer;

begin

   for i:=1 to length(a) do begin

       if i<=2 then a[i]:=1

       else begin

           a[i]:=a[i-2]+a[i-1];

       end;

       write(a[i], ' ');

   end;

end.

Информационная деятельность - это совокупность действий, направленных на удовлетворение информационных потребностей граждан, юридических лиц и государства.
В целях удовлетворения этих потребностей органы государственной власти и органы местного и регионального самоуправления создают информационные службы, системы, сети, базы и банки данных.
Порядок их создания, структура, права и обязанности определяются Кабинетом Министров Украины или другими органами государственной власти, а также органами местного и регионального самоуправления.