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

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