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

1.1) Program summawhil;

var

i, sum:integer;

begin

i:=2;

while i<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 n>1 do

begin

a:=a*a;

n:=n-1;

end;

writeln (a);

end.

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