Viết chương trình tính tổng các phần tử chẵn của mảng A gồm n phần tử với n nguyên dương nhập từ bàn phím và n<=300 Giúp mình với mình đang kiểm tra ạ

program ct;

uses crt;

var i,n,S:integer;

A:array[1..300] of integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

S:=0;

for i:=1 to n do 

if A[i] mod 2=0 then S:=S+A[i];

writeln('tong cac so chan la=',S);

readln

end.

Uses crt;

Var i, n, s: integer;

      a:array[1..300] of integer;

Begin

   Clrscr;

   Write('Nhap n = '); readln(n);

   For i:=1 to n do

     Begin

          Write('a[',i,']=');

          Readln(a[i]);

     End;

   s:=0;

   For i:=1 ton do if a[i] mod 2 = 0 then inc(s,a[i]);

   Writeln('Tong = ',s);

Readln

End.