Полезно выпускнику

var N : integer;
 sym : char;
 nschool : 1..99; {или nschool : integer;}
 count : array[1..99] of integer;
 i, min : integer;
begin
 for i := 1 to 99 do
 count[i] = 0;
 readln(N);
 for i : =1 to N do begin
 sym := ‘!’;  {этот символ не может быть в начале фамилии}
 while sym <> ‘ ‘ do  {чтение фамилии}
 read(sym);
 sym := ‘!’;
 while sym <> ‘ ‘ do  {чтение инициалов}
 read(sym);       {следующий ввод – с новой строки}
 readln(nschool);
 count[nschool] := count[nschool] + 1;
 end;
 min := N;  {нельзя взять count[1], т.к. там может быть 0}
 for i := 1 to 99 do
 if count[i] > 0
 then begin if count[i] < min
 then min := count[i];
 end;
 for i := 1 to 99 do
 if count[i] = min
 then writeln (i);
end.

const N = 365;
var sym : char;
 month : 1..12;  {или month : integer;}
 temperature : real;
 max_otkl : real;
 days : array[1..12] of integer;
 tablica : array[1..32, 1..12] of real;
 I, j : integer;
begin
 for i:=1 to 12 do begin
 days [i]:= 0;
 tablica[32, i]:= 0;
 end;
 max_otkl:=0;
 for i :=1 to N do begin
 for j := 1 to 3 do     {чтение номера дня и точки}
 read(sym);
 read(month);   {чтение номера месяца}
 readln(temperature);     {следующий ввод – с новой строки}
 days [month]:= days [month]+1;  {место для температуры}
 tablica[days [month], month]:= temperature;
 tablica[32, month]:= tablica[32, month]+ temperature;
 end;
 for i:=1 to 12 do begin
 tablica[32, i]:= tablica[32, i] / days [i];
 for j:=1 to days [i] do begin  {по дням месяца}
 if abs(tablica[j,i] – tablica[32, i]) > max_otkl
 then max_otkl := abs(tablica[j, i] – tablica[32, i]);
 end;
 writeln(max_otkl);
end.