nhập vào dãy số nguyên gồm N phân tử. in ra màn hình số nhỏ nhất trong dãy vừa nhập

Uses Crt;
Var a:array[1..1000] of integer;
i,n,min:longint;
Begin
Write(‘Nhap so ptu n vao: ‘); Readln(n);
Writeln(‘Nhap cac ptu vao: ‘);
For i:= 1 to n do
Begin
Write(‘a[‘,i,’]= ‘); Readln(a[i]);
End;
min:=a[1];
For i:=2 to n do
If min>a[i] then min:=a[i];
End;
Write(‘So be nhat trong day so la: ‘,min);
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhá! Thanks bạn nhá :333
* P/S: Hỏi gì thì comment bên dưới nhá 😀