kol:=0;
kol5:=0;
sum:=0;
for i:=1 to n do
begin
if (a[i,j] mod 3=0)or(a[i,j] mod 5=0) then
begin
sum:=sum+a[i,j];
inc(kol);
end;
if (a[i,j]=5) then ink(kol5);
end;
writeln('Summa= ',sum);
writeln('Kolichestvo kratnih 3 i 5 = ',kol);
writeln('Pyaterok = ',kol5);