var n,i,dem:longint;
a:array[1..688886]of real;
m:real;
begin
writeln('nhap so phan tu');readln(n);
writeln('nhap lan luot n phan tu');m:=0;
for i:=1 to n do begin
readln(a[i]);
if a[i]>m then m:=a[i];
end;
writeln('mang vua nhap');
for i:=1 to n do
write(' ',a[i]:0:0);
readln;
writeln(' so lon nhat :',m:0:0);
readln;
writeln('cac phan tu lon nhat');
dem:=0;
for i:=1 to n do
if a[i]=m then write(i,' ');
readln;
end.