Дано число n. найти первое натуральное число, квадрат которого больше n.

Var
n,i:Integer;
Begin
 Read(n);
 for i:=1 to n do
  if (i*i>n) then
    begin
     Writeln(i);
     break;
    end;
 end.