Найдите сумму 5 первых натуральных чисел ,больше 100,и кратные 123 ПАСКАЛЬ !!!!!

Предыдущий
вопрос Следующий
вопрос

Приведу пример кода на Pascal, который находит сумму 5 первых натуральных чисел, больше 100 и кратных 123:

program SumOfNumbers;
var
i, count, sum: integer;
begin
count := 0;
sum := 0;
for i := 101 to 1000 do
begin
if (i mod 123 = 0) then
begin
sum := sum + i;
count := count + 1;
end;
if count = 5 then
break;
end;
writeln('Сумма 5 первых натуральных чисел, больше 100 и кратных 123: ', sum);
end.

Этот код найдет 5 первых натуральных чисел, начиная с 101, которые кратны 123 и выведет их сумму.