Составить программу.Паскаль. Найти сумму чисел, делящихся без остатка на 4, меньших 100 и заканчивающихся на 2 или 8.

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

program SumOfNumbers;

var
i, sum: integer;

begin
sum := 0;
for i := 1 to 99 do
begin
if (i mod 4 = 0) and ((i mod 10 = 2) or (i mod 10 = 8)) then
sum := sum + i;
end;

writeln('Сумма чисел, делящихся без остатка на 4, меньших 100 и заканчивающихся на 2 или 8: ', sum);
end.