Найти квадрат

[Mr-FredY]

Добрый вечер.
Ребята, если не сложно, то помогите с задачей.
Условие : Дано число n. Найти первое натуральное число, квадрат которого больше n.

[morgan97]

var n,b,v,i:longint;
flag:boolean;
begin
  flag:=false;
  readln(n);
  i:=0;
  while flag=false do begin
    i:=i+1;
    if sqr(i)>n then begin
      writeln('rezalt: ',i);
      flag:=true;
    end;
  end;
end.

[Mr-FredY]

Большое спасибо.

[Serge_Bliznykov]

кстати, в условии задачи ничего не сказано о том, КАК решать данную задачу (подразумевается, конечно, цикл...)
но если воспользоваться функцией извлечения корня, то задача вырождается в одну строку:

WriteLn(' Ответ: ', trunc(sqrt(n))+1);