Программа на Pascal ABC:

program CountEvenNumbers;
var
n, count: integer;
begin
count := 0;
for n := 1 to 100 do
begin
if n mod 2 = 0 then
count := count + 1;
end;
writeln('Количество четных чисел от 1 до 100: ', count);
end.

Эта программа будет подсчитывать количество четных чисел от 1 до 100 и выводить результат на экран.