Em xây dựng một số chương trình con để tính tổng dãy số nguyên từ a1, a2,...an, n và các số được nhập từ bàn phím, viết thủ tục nhập và hàm tổng. Giúp mình với ạ vote đầy đủ

uses crt;

var a: array[1..100] of integer;

i,n,s: integer;

procedure nhaptinh;

var i,n,s: integer;

begin

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

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');  readln (a[i]);

s:=s+a[i];

end;

begin

clrscr;

nhaptinh;

writeln ('tong la: ',s);

readln;

end.

program nhap_tinhtong;

uses crt;

type kmang=array[1..1000] of integer;

var A:kmang;

     n:integer;

{---Nhap---}

procedure nhap;

var i:integer;

begin

       write('Nhap n: ');  readln(n);

       for i:=1 to n do

              begin

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

              end;

end;

{---Tinh-tong---}

function tinh_tong(A:kmang; n:integer):integer;

var t,i:integer;

begin

       t:=0;

       for i:=1 to n do

              t:=t+A[i];

       tinh_tong:=t;

end;

{---CT-chinh---}

BEGIN

       clrscr;

       nhap;

       write('Tong cac phan tu la: ',tinh_tong(A,n));

       readln;

end.