program p832;
Var i, j, kl, k2, n, m, count : Integer;
sum : integer;
a:array[1..10,1..10] of integer;
begin
write('vvrdite n m');
readln(n,m);
for i:=1to n do
for j:=1to m do
read(a[i,j]);
write('vvedite k1 k2');
ReadLn(kl, k2);
For j := 1 To m Do
Begin
sum := 0;
count := 0;
For i := 1 To n Do
If (A[i, j] Mod kl = 0) Or
(A[i, j] Mod k2 = 0) Then
Begin
Inc(sum, A[i, j]);
Inc(count);
End;
WriteLn('Sum in ', J, ' column ', sum);
WriteLn('Count in ' , J, ' column ', count);
End;
end.