program mang;

uses crt;

var A:array [1..500] of integer;

      n,i,min: integer;

Begin

         clrscr;

         write('Nhap do dai mang: '); 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('So nho nhat: ',min);

         readln

End.

program dev;
uses crt;
var a:array[1..100] of integer;
      n,i,min:integer;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do
            begin
                  write('a[',i,']: '); readln(a[i]);
            end;
      min:=a[1];
      for i:=2 to n do if a[i]<min then min:=a[i];
      write('Gia tri nho nhat: ',min);
      readln;
end.