Программа

Program Pilshikov_5_38 (input,output);
{ Дано 100 целых.
  Определить количество максимальных }
Var i:integer;
    QuantityCeiling:integer;
    Ceiling:integer;
    Number:integer;
BEGIN
  Writeln;
  Write('Введите число ');
  Readln(Number);
  Ceiling:=Number;
  QuantityCeiling:=1;
  for i:=2 to 100 do
    Begin
      Write('Введите число ');
      Readln(Number);
      if Number=Ceiling then QuantityCeiling:=QuantityCeiling+1;
      if Number>Ceiling then begin
                               Ceiling:=Number;
                               QuantityCeiling:=1
                             end
    End;
  Writeln('Количество максимальных ',QuantityCeiling)
END.