Question

Помогите составить диалог с компьютером в Pascal.
При запуске программы компьютер:
1)спрашивает имя пользователя, здоровается с пользователем по имени.
2)спрашивает: "Сколько вам лет? "(На ответ от 1 до 6 - отвечает: "Ты еще совсем малыш")(от 7 до 17 - "Наверно ты учишься")(от 18 до 60 - :"Могу предположить что вы уже работаете")(от 61 до 125 - :"скорей всего вы уже на пенсии")( от 126 до 200- :"сомневаюсь, что вы еще живы")
3)спрашивает: "Какие отметки чаще всего бывали в вашем дневнике? "(На ответ 5 - отвечает: "Молодец")(4-:"Хорошо, но есть к чему стремиться")(3-:"Все, что не два уже хорошо")(2-:"Не ожидал такого от вас")
4)спрашивает: "Если у вас есть проблемы с геометрией, я могу помочь. Введите три числа, а я отвечу,, можно ли с ними построить треугольник. "предлагает любые три числа, если A+B>C,A+C>B, a B+C>A: отвечает, что треугольник с такими сторонами построить можно, а это действие не выполняется: ты должен: треугольник с такими сторонами построить невозможно.
5)Говорит: "До свиданья (имя пользователя)

Answer 1

Программа и пример её работы - в прилагаемом файле.

2ce6b235fce85c130ec6e261055182ef.txt

Answer 2

программа конечно работает но, зачем столько переменных и названы они лишь бы как. А если брать шире, то копипаста функционала и неверное проектирование.

Answer 3

С чем-то соглашусь, с чем-то нет. Спорить и что-то доказывать нет желания.