Представляю прекрасно. У меня в школе на профиле подобные задачи одиннадцатиклассники пишут
.
Я же вас спрашивал, в какой именно форме нужно реализовать! Консольное (терминальное) приложение было бы похоже на программу на Паскале, но вы не дали четкого ответа. Вот я и выбрал вариант, что полегче
.
Найдите в распакованном архиве файл unit1.pas и откройте его с помощью Блокнота. Можете убедиться, что, кроме процедур обработчиков, команд ветвления и вычислений, в листинге программы ничего неизвестного нет, даже циклов
.