1)найти сумму 1/2+1/4+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.
если непонятно пиши что непонятно(надеюсь поймеш) и я отвечу на вопросы