Паскаль! получить квадратную матрицу порядка n*n

Var a: integer; begin write('введите номер месяца: '); readln(a);   case a of     1: writeln('январь.31 день');     2: writeln('февраль.29 дней');     3: writeln('март.31 день');     4: writeln('апрель.30 дней');     5: writeln('май.31 день');     6: writeln('июнь.30 дней');     7: writeln('июль.31 день');     8: writeln('август.31 день');     9: writeln('сентябрь.30 дней');     10: writeln('октябрь.31 день');     11: writeln('ноябрь.30 дней');     12: writeln('декабрь.31 день'); end; end. 2. var a: integer; begin writeln('введите число:   '); readln(a); case a of 1: write(a, '  копейка'); 2..4: write(a, '  копейки'); 5..20: write(a, '  копеек'); end; end.

//pascal abc.net v3.1 сборка 1172 var   ar: array[1..15] of integer;   i,k1,k2: integer;   r1,r2: real; begin   randomize;   writeln('array: ');   for i: =1 to 15 do   begin     ar[i]: =random(-20,20);     write(ar[i]: 4);     if i mod 2=0 then       begin         inc(k1);         r1: =r1+ar[i];       end;     if ar[i]> 0 then       begin         inc(k2);         r2: =r2+k2;       end;   end;   r1: =r1/k1;   r2: =r2/k2;   writeln;   if r1> r2 then writeln('среднее арифметическое элементов стоящих на четных местах');   if r1< r2 then writeln('cреднее арифметическое положительных элементов массива');   if r1=r2 then writeln('равно'); end.