Bạn tham khảo xem sao :

Program Kt _so_lon_nhat_nho_nhat;
Uses crt;
Var a, b : integer;
Begin 
write ("Nhap so nguyen a = "); readln(a); 
write ("Nhap so nguyen b = "); readln(b); 
max:=a; 
if max < b then max:=b; 
writeln ("So lon nhat la :",max); 
min:=a; 
if min>b then min:=b; 
writeln ("So nho nhat la :",min); 
readln; 
End. 

program mang;

uses crt;

var A:array [1..100] of byte;

      n,i,min: byte;

Begin

         clrscr;

         write('Nhap so phan tu: '); readln(n);

         min:=1;

         for i:=1 to n do

         begin

                  write('A[',i,']='); readln(A[i]);

                  if min>A[i] then min:=A[i];

         end;

         write('Gia tri nho nhat; ',min);

         readln

End.