Вывести наименьшее из целых чисел - Pascal ABC (12882)

Формулировка задачи:

Дано целое число N (>1). Вывести наименьшее из целых чисел К, для которых сумма 1 + 2 + ... + К будет больше или равна N , и саму эту сумму.

Решение задачи: «Вывести наименьшее из целых чисел»

Листинг программы

program m1;
var A : real;
N : integer;
summ : real;
begin
WriteLn('Input A, please:');
ReadLn(A);
summ := 0;
N := 1;
while (summ + 1/N) < A do
begin
summ := summ + 1/N;
N := N + 1;
end;
WriteLn('N: ',N-1);
WriteLn('Summ: ',summ);
ReadLn;
end.

Объяснение кода листинга программы

В программе объявлены три переменные: A, N и summ.
Выводится приглашение для ввода значения переменной A.
Создается переменная summ и присваивается ей значение 0.
Создается переменная N и присваивается ей значение 1.
Запускается цикл while, который выполняется до тех пор, пока сумма 1/N и N не превысят значение переменной A.
Внутри цикла переменная summ обновляется, чтобы она содержала сумму 1/N.
Переменная N обновляется, чтобы она содержала следующее целое число после текущего значения N.
После выхода из цикла выводится значение переменной N.
Выводится значение переменной summ.
Программа завершается, ожидая ввода от пользователя.