Решить задание с кодом pascal

Вы предлагаете это в уме решить?
Заводите 2 вспомогательных переменных-счетчика.
Рядом с интересующими строками ставите команду увеличения значений счетчиков. Например, c1:=c1+1.
В конце программы выводите значения счетчиков на экран.