Вывести календарь - Turbo Pascal

Формулировка задачи:

Собственно сделайте вот такой вывод при помощи массива.

Решение задачи: «Вывести календарь»

Листинг программы

uses crt;
const n=7;
      m=6;
var ms:array[1..n,1..m] of integer;
    i,j:byte;
begin
clrscr;
for i:=1 to m do
ms[1,i]:=i*7-12;
for i:=2 to n do
for j:=1 to m do
ms[i,j]:=ms[i-1,j]+1;
for i:=1 to n do
 begin
  for j:=1 to m do
  if ms[i,j] in [1..31] then write(ms[i,j]:3)
  else write(' ':3);
  writeln;
 end;
readln
end.

Объяснение кода листинга программы

В первой строке используется директива uses crt, которая позволяет использовать функции стандартного ввода/вывода из библиотеки Turbo Pascal.
Далее идет константа n, которая определяет количество дней в месяце. Значение равно 7.
Следующая константа m определяет количество месяцев. Значение равно 6.
Создается переменная ms, которая представляет собой массив целых чисел размером (1..n,1..m). Это означает, что массив содержит 7 строк (от 1 до 7) и 6 столбцов (от 1 до 6).
Переменные i и j являются байтовыми переменными и используются для итерации по массиву ms.
В первом цикле for i:=1 to m do заполняется первый столбец массива ms значениями, полученными путем умножения числа месяца на 7 и вычитания 12.
Во втором цикле for i:=2 to n do и for j:=1 to m do заполняются остальные ячейки массива ms значениями, полученными путем прибавления 1 к значениям в соответствующих ячейках предыдущего месяца.
В третьем цикле for i:=1 to n do происходит вывод значений массива ms на экран. Если значение ячейки массива ms находится в диапазоне от 1 до 31, то оно выводится на экран. В противном случае выводится пробел.
В конце программы вызывается функция readln, которая позволяет пользователю ввести данные с клавиатуры.
Код завершается после того, как пользователь вводит что-то и нажимает Enter.