uses crt;
var a:array[1..1000] of longint;
    i,max:integer;
begin
    clrscr;
    for i:=1 to 10 do
        begin
            write('Nhap phan tu thu ',i,': '); readln(a[i]);
        end;
    max:=a[1];
    for i:=1 to 10 do if a[i]>max then max:=a[i];
    write('Phan tu lon nhat: ',max);
    readln;
end.

program phuongt;
uses crt;
  var A: array[1..10] of integer;
        i, n: integer;
begin
        clrscr;
        for i:=1 to 10 do
        begin
                 write('A[', i, '] = '); readln(A[i]);
        end;
        n:=A[1];
        for i:=1 to 10 do if n<A[i] then n:=A[i];
        write('So lon nhat: ', n);
        readln
end.