Viết CT tính tổng các số nguyên liền kề nhau trong mảng, giá trị các phần tử của mảng đc nhập từ bàn phím. *Dùng kiến thức lớp 8

Không dùng array:

uses crt;
var n,i,t,a:longint;
begin
   clrscr;
   write(‘Nhap so luong phan tu cua mang:’);readln(N);
   t:=0;
   for i:=1 to n Do 
      begin
          write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a);
          t:=t+a;
      end;
   writeln(‘Tong= ‘,t);
readln;
end.