program while7;
uses crt;
var
n,k:integer;
begin
clrscr;
writeln('Введите число ');
readln(n);
k:=0;
while k*k < n do
inc (k);
writeln('Результат ',k);
readln;
end.
program while7;
uses crt;
var
n,k:integer;
begin
clrscr;
writeln('Введите число ');
readln(n);
k:=0;
while k*k < n do
inc (k);
writeln('Результат ',k);
readln;
end.