uses crt;
var n,i,lon,nho: integer;
    a: array[1..100] of integer;
begin
clrscr;
    write('Nhap do dai: '); readln(n);
    write('Nhap mang: '); for i:=1 to n do read(a[i]);
    lon:=a[1]; nho:=a[1];
    for i:=1 to n do begin
        if lon<a[i] then lon:=a[i];
        if nho>a[i] then nho:=a[i];
    end;
    writeln('So lon nhat: ',lon);
    write('So nho nhat: ',nho);
    readln
end.

uses crt;
 var a : array[1..100] of longint ;
  petite ,grande , i, n: longint;
  // grande = max , petite = min trong tiếng Pháp
   begin
    clrscr;
readln(n);
 for i := 1 to n do
    read(a[i]);
grande := a[1]; petite := a[1];
 for i := 1 to n do
         begin
        if grande < a[i] then grande := a[i]
            else petite := a[i];
         end;
    write(grande,'..',petite);
        readln ; end.