program ggg;
uses crt;
const n=5;
m=7;
var x:array[1..m,1..n] of integer;
i,j:integer;
k1,k2:integer;
sum,S:real;
BEGIN randomize;
clrscr;
writeln('vvedite chisla k1 i k2');
readln(k1,k2);
for i:=1 to m do begin for j:=1 to n do begin x[i,j]:=random(20)-3;
write(x[i,j]:5);
end;
writeln;
end;
sum:=0;
s:=0;
for i:=1 to m do for j:=1 to n do if (x[i,j] mod k1=0) or (x[i,j]mod k2=0) then begin sum:=sum+ x[i,j];
s:=s+1;
END;
writeln('summa,KOL-VO');
write(sum:7:2,S:7:2);
readln;
END.