Определить, сколько чисел необходимо, чтобы их сумма оказалась больше заданного числа - Pascal ABC

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

Написать программу, которая находит сколько чисел необходимо, чтобы сумма 5+(2*5) + (3*5) +...(N*5) оказалась больше заданного числа.

Решение задачи: «Определить, сколько чисел необходимо, чтобы их сумма оказалась больше заданного числа»

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

var sum,i,a:integer;
begin
writeln('введите a');
readln(a);
for i:=1 to 100000 do begin
sum:=sum+i*5;
if sum>a then break;
end;
writeln('ответ - ',i,' чисел(а)');
end.

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

В данном коде на языке Pascal ABC происходит следующее:

Объявляются переменные sum, i и a типа integer.
Выводится сообщение «введите a», и переменная a принимает значение, введенное пользователем.
Запускается цикл for, который выполняется 100000 раз (от 1 до 100000).
Внутри цикла переменная sum инициализируется суммой предыдущих значений переменной i, умноженных на 5.
Если сумма превышает значение переменной a, то цикл прерывается командой break.
По завершении цикла выводится сообщение «ответ — », и переменная i принимает значение количества чисел, необходимых для суммы. Таким образом, данный код позволяет определить количество чисел, которые необходимо сложить вместе, чтобы их сумма превышала заданное число.