Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
По заданному натуральному числу А требуется найти наибольшее число В такое, что B2 <= A.
Входные данные
Во входном файле INPUT.TXT записано натуральное число A (A <= 103000).
Выходные данные
В выходной файл OUTPUT.TXT выведите максимальное натуральное число B, квадрат которого не превосходит A. Число B следует выводить без лидирующих нулей.
Пример
№ INPUT.TXT OUTPUT.TXT
1 17 4

мое решение не принимает, так как выводит больше чисел, чем надо


Приложение:
var
x, n, y: integer;
begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output);
read(n);
x := 2;
while trunc (sqrt(x)) < n do
begin
y := trunc(sqrt(x));
write(y);
x := x + 1
end;
end.