viết chương trình nhập n số nguyên từ bàn phím. tính và in ra màn hình tổng các số vừa nhập và tích các số chẵn

var t, s: longint;

      i, n: byte;

      a: integer;

Begin

    Write(‘n = ‘); readln(n);

    S:=0; t:=1;

    For i:=1 to n do

     Begin

        Write(‘a[‘, i, ‘] = ‘); readln(a);

        If (a mod 2 = 0) then t:=t*a;

        S:=s+a;

     End;

   Writeln(‘tong: ‘, s);

   Write(‘tich: ‘, t);

   Readln

End.