ues crt;
var a:array[1..100] of integer;
i, n, max:integer;
begin
clrscr;
writeln('nhap so phan tu cua day so, n= ');readln(n);
for i:=1 to n do
begin
writeln('phan tu thu ',i,' :');
readln(a[i]);
end;
max:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
end;
writeln('phan tu lon nhat trong day gom ',n,' phan tu la: ',max:3:1);
readln
end.