01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / EX2

program ex2;
{‡ ¬Ґ­Ёвм ¬Ґбв ¬Ё ў ¬ ваЁжҐ §­ зҐ­Ёп Ј« ў­®© Ё Ї®Ў®з­®© ¤Ё Ј®­ «Ґ©}
const nmax=10;
var i,j,k: integer;
var n: integer; {Ї®а冷Є ¬ ваЁжл}
var m: array[1..nmax,1..nmax] of integer;
begin
 writeln('‚ўҐ¤ЁвҐ Ї®а冷Є ¬ ваЁжл');
 readln(n);
 if n>nmax then
  writeln('‡ ¤ ­­л© Ї®а冷Є ¬ ваЁжл Ў®«миҐ ¬ ЄбЁ¬ «м­®Ј®, а ў­®Ј® ',nmax)
 else
 begin
  writeln('‚ўҐ¤ЁвҐ Ёб室­го ¬ ваЁжг');
  for i:=1 to n do
   for j:=1 to n do read(m[i,j]);
  {ђ бЇҐз вЄ  Ёб室­®© ¬ ваЁжл}
  writeln('€б室­ п ¬ ваЁж ');
  for i:=1 to n do
  begin
   for j:=1 to n do write(m[i,j]:4);
   writeln
  end;
  {‡ ¬Ґ­  ¬Ґбв ¬Ё ¤Ё Ј®­ «Ґ©}
  for i:=1 to n do
   begin
    k:=m[i,i]; m[i,i]:=m[i,n+1-i]; m[i,n+1-i]:=k
   end;
  {ђ бЇҐз вЄ  १г«мвЁаго饩 ¬ ваЁжл}
  writeln('ђҐ§г«мвЁагой п ¬ ваЁж ');
  for i:=1 to n do
  begin
   for j:=1 to n do write(m[i,j]:4);
   writeln
  end
 end
end.