Запишите программу на языке Паскаль для

1) вводить три равных натуральных числа - треугольник равносторонний. Результат программы TRUE ⇒ программа работает корректно
2) вводить три неравных натуральных числа - треугольник не равносторонний. Результат программы FALSE ⇒ программа работает корректно

3) ввести три нуля - треугольник не существует. Результат программы TRUE ⇒ программа работает некорректно
4) вводить три равных отрицательных числа - треугольник не существует. Результат программы TRUE ⇒ программа работает некорректно
5) ввести три равных или неравных вещественных числа - треугольник существует. Результата программы нет (ошибка типов) ⇒ программа работает некорректно

Есть легенда,что при римской империи,что бы посетить императора для чего-либо,простолюдину нужно было принести дар императору. Мария Магдалина, когда пришла к императору Тиберию о том, что бы сообщить ему благостную весть о воскресении Иисуса Христа ничего при себе не имела,кроме белого яйца.Тогда император сказал: "Я поверю тебе если это белое яйцо станет красным"! Совершилось чудо яйцо туже секунду мгновенно покраснело,тогда Мария Магдалина протянула красное яйцо императору и сказала "Христос Воскрес"! Император Тиберий принял яйцо провозгласил о чуде в словах "Воистину Воскрес"!!Ну так сказать, отсюда и пошло как обычай красить яйца на Пасху.