Написать программу pascal: найти сумму всех чисел с клавиатуры, кратных заданному числу a.

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

program SumOfMultiples;

va
a, num, sum: integer;

begi
sum := 0;

writeln('Введите число a:')
readln(a);

writeln('Введите числа (для завершения введите 0):');

repea
readln(num)
if (num mod a = 0) the
sum := sum + num
until num = 0;

writeln('Сумма чисел, кратных ', a, ': ', sum);

end.