{* Задача 528 *}

Unit ZADACH528;
Interface
Implementation
Begin
 writeln('Определить самую высокую температуру и самый теплый день в мае.');
End.

Program zadach528;

Uses zadach528.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  t   : Array[1..31] Of integer;
  i   : integer;
  max : integer;
  n   : integer;
Begin
  Clrscr; {* Очистка экрана *}
  For i := 1 To 31 Do {* Цикл для i => [1 .. 31] *}
  Begin
    t[i] := random(20);
    write(t[i],‘ ’);
  End;
  writeln; {* Пропускаем одну строку *}
  max := t[1];
  n := 1;
  For i := 2 To 31 Do {* Увеличиваем i от 2 до 31 с шагом 1 *}
  Begin
    If t[i] > max Then
    Begin
      max := t[i];
      n := i;
    End;
    
  End;
  writeln(‘t - макс. = ’, max,‘ в  ’, n, ‘день’);
End.