Решите циклом. даны действительное число а, натуральное число п. вычислить: s =1 + 1/a2 +1/a4 + +1/a2n-2

Var       a, s, t: real;       n, i: integer; begin       readln(a, n);       t : = 1;       for i : = 1 to n do       begin               s : = s + 1 / t;               t : = t * a * a;       end;       writeln(s); end. аналог не руби для проверки блин a=2.0 n=4 s=0.0 for i in 1..n       s+=1/a**(2*i-2)       p [a**(2*i-2), (2*i-2)] end p s

1.Program arrays;const n = 15;Var a:array [1..n] of integer;    i:integer;begin  for i:=1 to n do a[i]:= random(-20, 20);  for i:=1 to n do  begin    if a[i] mod 2 = 0 then      a[i]:=sqr(a[i]);  end;  for i:= 1 to n do write(a[i], );end.2.Program arrayss;const n = 10;Var a:array [1..n] of integer;    i:integer;begin  for i:=1 to n do read(a[i]);  swap(a[1], a[10]);  for i:= 1 to n do write(a[i], );end.

На один символ отводится 1 байт 
30 строк по 70 символов - 2100 символов 
5 страниц-это 10500 символов 
так что ответ 10500 байт