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 nho nhat cua day so vua nhap la', Min);

readln;

end.

program baitap;

user crt;

var a:array(1...100000) of longint;

i,n,Min: longint;

begin clrscr;

write('Nhap so n:"); readln(n)

for i:=1 to n do begin

write('Nhap phan tu thu ',i,' la : '); readln(a[i]);
end;

max:=a[1];

for i:=2 to n do if max <a[i] then max:=a[i];
writeln'Gia tri nho nhat cua day so vua nhap la', Min);

readln

end.