1) Найти сумму 1/2+1/4+1/6 ... 1/20 на паскале с помощью while и точно такую же задачу с циклом for

2) Возведение степени a в степень n, с помощью while

Program h;

var i:integer;

s:real;

begin

i:=0;

while i<=20 do

begin

i:=i+2;

s:=s+1/i;

end;

writeln (s) ;

end.

Program h2;

var i:integer;

s:real;

begin

for i:=2 to 20 do

begin

if (i mod 2=0) then s:=s+1/i;

end;

writeln (s) ;

end.

3) program chik;

var a, n, p, i:integer;

begin

read (a, n) ;

i:=2; p:=a;

whiel i<=n do

begin

i:=i+1;

p:=p*a;

end;

writeln (p) ;

end.

если непонятно пиши что непонятно (надеюсь поймеш) и я отвечу на вопросы