Program TinhTongCacSoChanTu1den100;
Var i, tong: integer;
BEGIN
writeln('Chuong trinh tinh tong cac so chan trong khoang tu 1 -> 100');
readln;
tong: = 0;
for i:=1 to 100 do
if i div 2 = 0 then tong:= tong + i;
writeln('Tong cua cac so chan trong khoang tu 1 -> 100 bang: ',tong:4);
readln;
END.