ога))

только меняйте имена переменных!!!!!!!!!!!!!!!!!!
а то мне потом монтифик будет от Харченко!!!!!!!!!!!!!!

           ЗАДАЧА №1 для 15 группы на завтра...

var i,j,l,n,s:integer;
    a:array[1..100,1..100]of integer;
    f:boolean;
begin
     readln(n);
     for i:=1 to n do
         for j:=1 to n do
             readln(a[i,j]);
     s:=0;
     for i:=1 to n do
         for j:=1 to n do
         begin
              f:=true;
              for l:=2 to a[i,j]-1 do
                  if (a[i,j] mod l)=0 then f:=false;
              if f then s:=s+a[i,j];
         end;
     writeln(s);
     readln;
end.

вторая задача для 15 группы

var a:array[1..100,1..100]of integer;
    i,j,k,n,f,f1,f2:integer;
begin
     readln(n);
     for i:=1 to n do
         for j:=1 to n do
             readln(a[i,j]);
     k:=0;
     for i:=1 to n do
         for j:=1 to n do
         begin
              if ((i<j)and(i>n-j+1))or((i>j)and(i<n-j+1)) then
              begin
                   f:=1;
                   f1:=1;
                   while f<a[i,j] do
                   begin
                        f2:=f;
                        f:=f1+f2;
                        f1:=f2;
                   end;
                   if a[i,j]=f then k:=k+1;
              end;
         end;
         writeln(k);
         readln;
end.

четвертая

var a:array[1..100,1..100]of integer;
    i,j,n,max,min:integer;
begin
     readln(n);
     for i:=1 to n do
         for j:=1 to n do
             readln(a[i,j]);
     max:=a[1,1];
     min:=a[1,1];
     for i:=1 to n do
         for j:=1 to n do
         begin
              if a[i,j]>max then max:=a[i,j];
              if a[i,j]<min then min:=a[i,j];
         end;
     for i:=1 to n do
         for j:=1 to n do
             if (a[i,j]<=25)and(a[i,j]>=5) then a[i,j]:=a[i,j]+max-min;
     for i:=1 to n do
         for j:=1 to n do
             writeln(a[i,j]);
     readln;
end.

всё))) благодарность приносить в стеклянных бутылках с пивом))))))

сделал я вам две темы... пишите скока влезет)))))))

задание на завтра))

задача номер 1 для 1 подгруппы 15 группы...

var a:array[1..100,1..100]of integer;
    b:array[1..100]of boolean;
    i,j,n,m,s,l:integer;
    f:boolean;
begin
     readln(n,m);
     for i:=1 to n do
         for j:=1 to m do
             readln(a[i,j]);
     for j:=1 to m do
     begin
          s:=0;
          for i:=1 to n do
          begin
               f:=true;
               for l:=2 to a[i,j]-1 do
                   if (a[i,j] mod 2)=0 then f:=false;
               if f then s:=s+1;
          end;
          b[j]:=s<3;
     end;
     for j:=1 to m do
         writeln(b[j]);
     readln;
end.

третья))

var a:array[1..100,1..100]of integer;
    b:array[1..100]of integer;
    i,j,n,m,s,l,x,y:integer;
    f:boolean;
begin
     readln(x,y);
     writeln;
     readln(n,m);
     for i:=1 to n do
         for j:=1 to m do
             readln(a[i,j]);
     for i:=1 to n do
     begin
          f:=true;
          s:=1;
          for j:=1 to m do
          begin
               if x>y then
               begin
                  if (a[i,j]<=x)and(a[i,j]>=y)and((i+j)mod 2=1) then
                  s:=s*a[i,j];
               end
               else
               begin
                  if (a[i,j]>=x)and(a[i,j]<=y)and((i+j)mod 2=1) then
                  s:=s*a[i,j];
               end;
          end;
          b[i]:=s;
     end;
     for i:=1 to n do
         writeln(b[i]);
     readln;
end.