Viết chương trình nhập vào một dãy số nguyên gồm n số

uses crt;
var i,s,n:integer;
      A:array[1..50] of integer;
begin
         clrscr;
         readln(n);
         for i:=1 to n do read(a[i]);
         s:=0;
         for i:=1 to n do s:=s+a[i];
         write(s);
         readln

program traloi;

uses crt;

var n,i:longint;

     a:array[1..100] of longint;

begin

 clrscr;

  write('Nhap N= '); readln(n);

  for i:=1 to n do

   begin

    write('A[',i,']= ');

    readln(a[i]);

   end;

  for i:=1 to n do write(a[i],' ');

 readln;

end.

uses crt;

var n,i:longint;

a:array[1..100]of longint;

begin

       clrscr;

       write('nhap n:, ');readln(n);

       for i:=1 to n do readln(a[i]);

       for i:=1 to n do write(a[i],' ');

readln

end.

/

uses crt;  var n,i:longint;  a:array[1..100]of longint;  begin         clrscr;         write('nhap n:, ');readln(n);         for i:=1 to n do readln(a[i]);         for i:=1 to n do write(a[i],' ');  readln  end.