Допишите Программу G = 6.67 * 0.00000000001g = 9.807R = int(input("Введите радиус планеты в м"))M = (g * R * R) / Gprint("Масса планеты", M, "кг.")

Задача 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.