Tin 11

var f:text;
n,dem,max:integer;
a:array[1..maxint] of integer;

procedure docfile;
var i:integer;
begin
assign(f,`d:input.txt`);
reset(f);
readln(f,n);
for i:=1 to n do read(f,a[i]);
close(f);
end;

procedure xuli;
var i,j:integer;
begin
max:=a[i];
for i:=2 to n do if a[i]>max then max:=a[i];
dem:=0;
for j:=1 to n do if a[j]=max then inc(dem);
end;

procedure xuatkq;
begin
assign(f,`d:output.txt`);
rewrite(f);
writeln(f,`max:`,max);
write(f,`so lan`,dem);
close(f);
end;

BEGIN
docfile;
xuli;
xuatkq;
END.