Срочнооооо!!!! Вычислить квадратный корень из чисел от 1 до N. Задачу решить 2-мы способами: используя цикл с предварительным условием; используя цикл с параметрами. В виде блок-схемы.

Попробовал на паскале, только потом увидел, что блок-схему надо, если пригодится:)
var a:real; k,n:integer;
begin
n:= 0;k:= 0;a:= 0;
readln(n);
repeat
k:= k+1;a:= sqrt(k)+a;
until nk;
writeln(a:1:2);
end.


var a:real; k,n:integer;
begin
n:= 0;k:= 0;a:= 0;
readln(n);
while nk do begin
k:= k+1;
a:= sqrt(k)+a;
end;
writeln(a:1:2);
end.