СОР по информатике, задания на фото

Const n=12; m=10;
var a:array[1..n,1..m] of integer;
i,j,k:integer;
begin
k:=0;
for j:=1 to m do
 for i:=n downto 1 do
  begin
  k:=k+1;
  a[i,j]:=k;
  end;
for i:=1 to n do
 begin
 for j:=1 to m do write(a[i,j]:4);
 writeln;
 end;
end.

Результат:
  12  24  36  48  60  72  84  96 108 120
  11  23  35  47  59  71  83  95 107 119
  10  22  34  46  58  70  82  94 106 118
   9  21  33  45  57  69  81  93 105 117
   8  20  32  44  56  68  80  92 104 116
   7  19  31  43  55  67  79  91 103 115
   6  18  30  42  54  66  78  90 102 114
   5  17  29  41  53  65  77  89 101 113
   4  16  28  40  52  64  76  88 100 112
   3  15  27  39  51  63  75  87  99 111
   2  14  26  38  50  62  74  86  98 110
   1  13  25  37  49  61  73  85  97 109

1.
var s:string; m1,m2,m3:integer;
begin
writeln('- Привет! Я компьютер, а как тебя зовут?');
write('- '); readln(s);
writeln('- ',s,', введи свои оценки по 3 предметам');
write('- '); readln(m1,m2,m3);
writeln('- ',s,', твой средний ', (m1+m2+m3)/3);
end.

Пример:
- Привет! Я компьютер, а как тебя зовут?
- Алёна
- Алёна, введи свои оценки по 3 предметам
- 4 4 4
- Алёна, твой средний 4

2.
var a,b:integer;
begin
write('a = '); readln(a);
b:=(a div 100)*100 + (a mod 10)*10 + (a div 10 mod 10);
writeln('b = ',b);
end.

Пример:
a = 123
b = 132