Дан двумерный массив. Найти сумму и количество элементов в каждом столбце: 1) попадающих в интервал от А до Б; 2) являющихся простыми числами; 3) кратных K1 или K2 — Pascal(Паскаль)

var
c:array[1..100,1..100] of integer;
a,b,sum,kol,i,j:integer;
strok,stolbcov:integer;
begin
readln(strok);
readln(stolbcov);
 readln(a);
  readln(b);
 for i:=1 to strok do
  for j:=1 to stolbcov do
   readln(c[i,j]);
j :=a;
sum:=0;
while (j>=a)and((j<=b) or (j>stolbcov)) do
begin
 for i := 1 to strok do
  sum := sum + c[i,j];
 inc(j);
end;
 
writeln('Сумма столбцов от А до В', sum);
readln;
end.

var
c:array[1..100,1..100] of integer;
a,b,sum,kol,i,j,k:integer;
l:boolean;
strok,stolbcov:integer;
begin
readln(strok);
readln(stolbcov);
 readln(a);
  readln(b);
 for i:=1 to strok do
  for j:=1 to stolbcov do
   readln(c[i,j]);
sum:=0;
for i:=1 to strok do
 for j:=1 to stolbcov do
 begin
  l:=true;
  for k:=2 to trunc(j) do
   if j mod k = 0 then l:=false;
 
  if l then sum:= sum + c[i,j];
 end;
 
writeln('Сумма столбцов являющихся простыми ', sum);
readln;
end.

[PASCAL]var
c:array[1..100,1..100] of integer;
k1,k2,sum,i,j:integer;
strok,stolbcov:integer;
begin
readln(strok);
readln(stolbcov);
 readln(k1);
  readln(k2);
 for i:=1 to strok do
  for j:=1 to stolbcov do
   readln(c[i,j]);
sum:=0;
for i:=1 to strok do
 for j:=1 to stolbcov do
  if (j mod k1 =0) and (j mod k2 = 0) then sum:= sum + c[i,j];
 
writeln('Сумма столбцов кратных К1 и К2  ', sum);
readln;
end.