Question

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

Answer 1

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