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.

uses crt;
Var a:array[1..100000] of longint;
i,n,min:longint;
Begin
clrscr;
write('Nhap n: '); readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
end;
for i:=1 to n do
if a[i]<min then min:=a[i];
write('Gia tri nho nhat trong day so vua nhap la: ',min);
readln
end.

----------Chúc bạn học tốt---------------