Program FindK;

var
N, K: Integer;

begin
writeln('Введите целое число N (>1): ');
readln(N);

K := 1;
while K * K <= N do
begin
K := K + 1;
end;

writeln('Наименьшее целое положительное число K, квадрат которого превосходит N: ', K);
end.