viết chương trình nhập dãy số chẵn n và tính tổng giúp mình với chiều nay mình kt :(((((

program ct;

uses crt;

var i,n,s:integer;

A:array[1..100] 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 la:',s);

readln

end.

Program Hotboy;

Uses crt;

Var A:array[1..100] of integer;

s,n : longint;

Begin

Clrscr;

s:=0;

Repeat

Write('nhap so n');

Until (n mod 2=0);

For i:=1 to n do

Write('A[',i,]');

Readln(A[i]);

For i:=1 to n do

S:=S+A[i];

Write('tong can tim la',S);

Readln

End.