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