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.