Viết chương trình nhập n số và cho biết số nhỏ nhất trong dãy số vừa nhập là số thứ mấy

program luftmensch;

uses crt;
var T:array[1..1000] of integer;
      i,n,stt,min:integer;
begin
   clrscr;
   write(‘Nhap n: ‘); readln(n);
   for i:=1 to n do
   begin
      write(‘Nhap so thu ‘,i,’: ‘);
      readln(T[i]);
   end;
   min:=T[1];
   for i:=2 to n do
   if T[i]<min then
   begin
      min:=T[i];
      stt:=i;
   end;
   write(‘So nho nhat la so ‘,min,’o vi tri thu’,stt);
   readln
end.