program r7_08;
uses crt;
const m=15;
var a:array[1..m]of integer;
      s,n,i:integer;
BEGIN
clrscr;
randomize;
writeln('Ââåäèòå ÷èñëî:');
readln(n);
  s:=0;
for i:=1 to m do
 begin
    a[i]:=random(100);write(a[i]:4);
    if (a[i]mod n=0) then
    s:=s+a[i];
 end;
writeln;
writeln(s:4);
END.