Viết chương trình pascal nhập vào n số nguyên từ bàn phím, tìm số nhỏ nhất trong dãy số vừa nhập

program Kiem_tra;

uses crt;

var a:array[1...100000] of longint; i,n,Min: longint;

begin clrscr;

writeln('Nhap n'); readln(n);

for i:=1 to n do

begin

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

end;

for i:=1 to n do

if a[i]<Min then Min:= a[i];

writeln('Gia tri NN cua day so vua nhap la', Min);

readln;

end.