Tính tổng các số chẵn từ 1 đến 100 rồi in kết quả ra màn hình.

Program TinhTongCacSoChanTu1den100_Cach1;

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.