Нужно составить программу с предусловием и постусловием!

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

На бейсике

Dim a As String, n As Integer

n = 0

Do ' Вечный цикл, пока не введут точку

Print "Введите букву";

Input a

If (a = "O") Or (a = "О") Then n = n + 1

' Если ввели рус. или англ. О, то увеличиваем счетчик

If a = "." Then Exit Do ' Если ввели точку, выскакиваем из цикла

Loop

Print n ' Выдаем количество введенных букв О

End