@Meoss_
* Viết chương trình như sau:
Program Tinh_tong2;
Uses Crt;
Var i,n,S:integer;
Begin
Clrscr;
Writeln('Ban hay nhap n'); Readln(n);
S:=0;
 For i:=1 to 20 do
begin
  if i mod 2 = 0 then S:=S+i; end;
Writeln(' Tong cac so chan la ', S );
 Readln;
End.