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

1 вариант.

var n,k:Integer;

begin Write(Введите натуральное число,n=);

Readln(n);

while k*k<=n do inc(k);

Writeln(Ответ: ,k);

Readln;

end.

2 вариант.

var

n,i:Integer;

Begin

Read(n);

for i:=1 to n do

if (i*i>n) then

begin

Writeln(i);

break;

end;

end.