viết chương trình in ra màn hình 20 số tính tổng các số chẵn. giúp mik với

Program baitap;

Uses crt;

Var $\text{n,i,tong: integer;}$

Begin

Clrscr;

Write$\text{(‘nhap n < =20:’);}$

Readln (`n`);

For

`i:=1` to `n` do write (`i:3`);

Writeln;

$\text{tong:=0;}$

For `i:=1` to `n` do if `i mod 2=0` then $\text{tong:=tong+i;}$

Write (‘tong cac so chan la:’, $\text{tong);}$

Readln 

End.