Дано целое натуральное число-порядковый номер месяца. вывести его название на языке, либо "нет", если месяца с таким порядковым номером не существует. нумерация месяцев начинается с 1

См. файл во вложении

Var    matrix: array[1..5,1..5] of integer;     i, j: integer;   sg: =0;   sp: =0; begin    writeln ('введите 25 чисел: ');       for i : = 1 to 5 do        for j : = 1 to 5 do            read (matrix[i,j]);       for i : = 1 to 5 do begin        for j : = 1 to 5 do            write (matrix[i,j], ' ');         writeln    end;   for i: =1 to 5 do  begin    for j: = 1 to 5 do    if j=i then sg: =sg+matrix[i,j];   end;   for i: =5 downto 1 do    begin    for j: =1to 5 do    if (i+j)=6 then sp: =sp+matrix[i,j]    end;     sp: =sp-matrix[3,3]; 1  writeln(sg,' ',sp); readln end.

Var a1, b1, a2, b2, c, i, n: integer;     s: array[1..10000] of integer; begin     read (n);     for i : =1 to n do          read (s[i]);     a1: =s[1];     for i : =1 to n do          if s[i]> a1 then          begin            b1: =i;             a1: =s[i];           end;     s[b1]: =-63999;     a2: =s[1];     for i : =1 to n do          if s[i]> a2 then          begin            b2: =i;             a2: =s[i];           end;     writeln (b1,' ',b2);     write (a1,' ',a2); end.я там еще какую-то коронку писал, уже не помню, но что-то про лучшее.