program tinhtong;

uses crt;

var A:array[1..20] of integer;

      i:byte;

      t:longint;

begin

        clrscr;

        t:=0;

        for i:=1 to 20 do

                begin

                        write('GIa tri phan tu thu ',i,': ');   readln(A[i]);

                        t:=t+A[i];

                end;

        write('Tong 20 phan tu la: ',t);

        readln;

end.

uses crt;
var a:array[1..20] of longint;
      i,s:longint;
begin
      clrscr;
      for i:=1 to 20 do
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
                  inc(s,a[i]);
            end;
      writeln('Tong: ',s);
      readln;
end.