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

На бейсикеDim a As String, n As Integern=0Do ' Вечный цикл, пока не введут точкуPrint «Введите букву"; Input aIf (a="O") Or (a=«О") Then n=n+1 ' Если ввели рус. Или англ. О, то увеличиваем счетчикIf a="." Then Exit Do ' Если ввели точку, выскакиваем из циклаLoopPrint n ' Выдаем количество введенных букв ОEnd