viết chương trình nhập vào 1 số nguyên dương(>=250) và dãy số gồm N số nguyên từ A1...An. tính tích của các số hạng trong dãy số

Program Hotboy;

Uses crt;

Var A:array[1..100] of integer;

I,n : byte;

S:real;

Begin

Clrscr ;

S:=0;

Repeat

Write('nhao so phan tu trong day'); readln(n);

Until n>=250;

For i:=1 do n do 

Begin

Write('A[',i,']'); readln(A[i]); 

End;

For i:=1 to n do

S:=S* A[i] ; 

Writeln('Tich cac phan tu trong mang la',S); 

Readln

End.

program T;

uses crt;

var i,N,tich:integer;

      a:array [1..1000000] of integer;

begin

clrscr;

write('Nhap N>=250: ');readln(N)

while N<=250 then

begin

  write('Nhap lai: ');readln(N)

end;

tich:=1;

writeln('Nhap ',N,' so nguyen: ');

for i: = 1 to N do

begin

 write('a[',i,'] : ');readln(a[i]);

 tich:=tich * a[i]

end;

writeln('Tich cua cac so hang trong day so la: ',tich);

readln;

end.