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.