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ổng 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('Tong cac phan tu trong mang la',S); 

Readln

End.

program T;

uses crt;

var i,N,tong: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;

tong:=0;

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

for i: = 1 to N do

begin

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

 tong:=tong + a[i]

end;

writeln('Tong cua cac so hang trong day so la: ',tong);

readln;

end.