1)Найти сумму 1/2+1/4+1/6...1/20 на паскале с подмогою while и точно такую

1.1) Program summawhil;

var

i,sum:integer;

begin

i:=2;

while ilt;21 do

begin

sum:=sum+1/i;

i:=i+1;

end;

writeln(sum);

end.

1.2) Program summafo;

var

i,sum:integer;

begin

for i:=2 to 20 do

begin

sum:=sum+1/i;

end;

writeln(sum);

end.

2) Program stepen;

var

a,n:integer;

begin

readln(a); ввод значения числа а

readln(n); ввод значения ступени n

while ngt;1 do

begin

a:=a*a;

n:=n-1;

end;

writeln(a);

end.

Если во 2 задании вводить не нужно, напишите а:=(ваше число) и n:=(ваше число) вместо строк 5 и 6.