ПОМОГИТЕ С ПРОГРАММОЙ

после того как я сделала получилось не так я планировала эта программа сделана не до конца и не правильно

Ну уж извините, формулировка вопроса у Вас странная. Я не не телепат, не могу заранее знать "как Вы планировали", поэтому сделал на своё усмотрение.

:(

Смотри, у тебя есть АДСКИХ размеров подпрограмма. Но, так как она не "вставлена" в основную программу, она бесполезна. Вот как выглядит сейчас вся твоя программа:beginWriteln('Пока!');end.То есть она только выводит "Пока!". Попробую поправить.Нашёл ещё один косяк. if (a = 0) or (a = 1) and (a = 2) - переменная не может сразу равняться трём значениям, нужно поставить между ними or и заключить в скобки.Дебаг прошёл успешно.