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

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