program Min; uses crt; var i,S:integer; begin clrscr; S:=0; for i:=1 to 200 do if i mod 2 = 0 then S:=S+i; write('Tong cua 100 so tu nhien chan dau tien la: ',S); readln end.
Program BTH; Uses Crt; var a,b:longint; Begin clrscr; For a:=1 to 200 do If a mod 2=0 then b:=b+a; writeln('Tong 100 so duong dau tien la: ',b); readln; end.