Program FW_PIMAX;
Uses CRT;
var
a : array[1..5] of integer;
i,max,k : integer;
begin
clrscr;
i := 1;
max := a[1];
k := 0;
while i <= 5 do
begin
write('a[', i, '] = ');
readln(a[i]);
if (a[i] > max) then
max := a[i] ;
i:=i+1;
end;
i:=1;
while i <= 5 do
begin
if (a[i] = max) then
k := k + 1;
i := i + 1;
end;
writeln('max: ',max);
writeln('kolvo max: ',k);
end.