Question

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

Answer 1

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