4.Practical work. 1. Укажите имена переменных: сумма, prog_l, input, pr+5, t8, 4gr.
2. Напишите код программы вывода на экран выражения "Variables can store any value (number, text, symbol) that can be used of replaced later"

Const
    n = 7;
    m = 5;

var
    a: array[1..n, 1..m] of integer;
    min2_j, max5_i, i, j, p: integer;
    c: char;

begin
    min2_j := 1;
    max5_i := 1;
    for i := 1 to n do
    begin
        writeln;
        for j := 1 to m do
        begin
            a[i, j] := random(50);
            write(a[i, j]:n);
            if(i = 2) and (a[2, min2_j] > a[i, j]) then
                min2_j := j;
            if (j = 5) and (a[max5_i, 5] < a[i, j]) then
                max5_i := i;
        end;
    end;
   
    i := a[2, min2_j];
    a[2, min2_j] := a[max5_i, 5];
    a[max5_i, 5] := i;
   
    writeln;
    p := 1;
    for i := 1 to n do
    begin
        writeln;
        for j := 1 to m do
        begin
            write(a[i, j]:n);
            if(i = j) then
                p := p * a[i, j];
        end;
    end;
   
    a[1, 3] := p;
    writeln;
    for i := 1 to n do
    begin
        writeln;
        for j := 1 to m do
            write(a[i, j]:n);
    end;
end.

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
  case ReadInteger('Номер месяца (1-12):') of
  1,2,12:Writeln('Зима');
  3..5:Writeln('Весна');
  6..8:Writeln('Лето');
  9..11:Writeln('Осень');
  else Writeln('Неверный номер месяца')
  end
end.

Вариант "для школьников"
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
var n:integer;
begin
  Write('Номер месяца (1-12): '); Read(n);
  case n of
  1,2,12:Writeln('Зима');
  3..5:Writeln('Весна');
  6..8:Writeln('Лето');
  9..11:Writeln('Осень');
  else Writeln('Неверный номер месяца')
  end
end.