Вычислить квадратный корень из чисел от 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 n<>k;
writeln(a:1:2);
end.

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