https://otvet.mail.ru/question/204036202

program salary;
var
    base:array[0..9] of longInt;
    max:longInt;
    i, count:integer;
begin
    base[0] := 48000;
    base[1] := 54700;
    base[2] := 88300;
    base[3] := 50000;
    base[4] := 48000;
    base[5] := 88300;
    base[6] := 39000;
    base[7] := 42000;
    base[8] := 88300;
    base[9] := 87000;

    max := base[0];
    for i := 1 to length(base) - 1 do if base[i] > max then max := base[i];

    count := 0;
    for i := 0 to length(base) - 1 do if base[i] = max then count := count + 1;

    writeln(max);
    writeln(count);
end.