Попробовал на паскале, только потом увидел, что блок-схему надо, если пригодится:)
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.