Нужно составить программу с предусловием и постусловием!
Составить программу к.т. запрашивает буквы, пока не введут точку и находит количество букв "0".

Увы, я Паскаль плохо знаю, так что переводи сама. И еще, я не заметил, что надо с предусловием и постусловием. Это просто.

А с предусловием на паскале будет while a <> "." do begin ... end;

Обрати внимание, что в условии у меня две буквы О - одна русская, другая английская, хотя выглядят они одинаково. Если бы была какая-нибудь J, то все было бы однозначно.