program raf105;

var a:array[1..10] of integer;

sum,n,i:integer;

begin

write('Введите число N: ');

readln(n);

writeln('Введите 10 чисел по очереди:');

for i:=1 to 10 do

begin

 readln(a[i]);

 if (a[i] mod n)=0

   then sum += a[i]

end;

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

end.

Язык PascalABC