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

program zz1;

var a, b, n, i, m: integer; / / задаем переменные целого типа

begin

write (' введите сколько чисел будем вводить '); / / вводим с клавиатуры число

read (n);

write (' введите заданное число а '); / / вводим с клавиатуры число

read (a);

for i:=1 to n do

begin

read (b); / / вводим число

if b mod a = 0 then m: = m + b; / / проверяем, если число делится на заданное без остатка, то добавляем его в сумму

end;

write (' сумма всех чисел с клавиатуры, кратных заданному числу a = ', m); / / выводим ответ

end.