program while8;
uses crt;
var
n,k:longint;
begin
clrscr;
repeat
write('Введите число ');
readln(n);
until n > 0;
k:=0;
while k*k < n do
k:=k+1;
if k*k > n then
k:=k-1;
writeln('Результат ',k);
readln;
end.
program while8;
uses crt;
var
n,k:longint;
begin
clrscr;
repeat
write('Введите число ');
readln(n);
until n > 0;
k:=0;
while k*k < n do
k:=k+1;
if k*k > n then
k:=k-1;
writeln('Результат ',k);
readln;
end.