Pascal. Задача 8-12

Пользователь вводит последовательность целых чисел, которую заканчивает вводом нуля. Найти в последовательности максимум и сколько раз он встречается в ней.

Решение

var
  n, max, cnt : integer;
begin
  Write('Введите число (0 - закончить ввод): ');
  Readln(n);
  max := n;
  cnt := 1;
  while n <> 0 do begin
    if n > max then begin
      max := n;
      cnt := 1;
    end
    else if n = max then Inc(cnt);
    Write('Введите число (0 - закончить ввод): ');
    Readln(n);
  end;
  Writeln('Максимальное значение: ', max, ' количество: ', cnt);
end.

◄▲►