uses crt;
var a:array[1..688886]of QWord;
max:QWord;
n,i,d:longint;
begin
clrscr;
repeat
write('Nhap so luong phan tu: ');readln(n);
if n<=0 then writeln('NHAP LAI!');
until (n>0)and(n<=688886);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');readln(a[i]);
end;
write('Day so vua nhap: ');
for i:=1 to n do write(a[i],' ');writeln;
max:=a[1];
for i:=2 to n do if a[i]>max then max:=a[i];
writeln('So lon nhat: ',max);
write('Vi tri cua so lon nhat: ');
for i:=1 to n do if max=a[i] then begin write('a[',i,'];');inc(d) end;
writeln;
write('So luong so lon nhat: ',d);
readln
end.
