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.