Напишите программу(Pascal)
Найдите сумму всех вводимых с клавиатуры чисел, кратных заданному числу а.

Program n1;var sum,a,c: integer;beginreadln(a);sum:=0;while true dobeginreadln(c);if c=0 then break;if c mod a=0 then sum:=sum+c;end;writeln(sum);end.