Найти количество чётных чисел от 1 до 100, программа Pascal abc

program zz1;

var b, i : integer; / / задаем переменные целого типа

begin

for i:=1 to 100 do / / организуем цикл, в котором переберем все числа от 1 до 100

begin

if i mod 2 = 0 / / проверяем условие, если число при делении на два дает в остатке ноль, то

then b:=b + 1; / / считаем это число

end;

write (' количество четных чисел от 1 до 100 = ', b); / / выводим ответ

end.