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