Заданы стороны треугольника a, b, c. Определить является ли он равносторонним. Написать программу на языке

Как и любая другая программа в программирование начинается одинаково и строится по шаблону. Сначала вводим буквенные обозначения и тип цифр, после пишем "begin". Дальше идет сама программа. var a,b,c:real; begin writeln('Введите длины сторон треугольника a,b,c '); readln(a,b,c); until (a>0) and (b>0) and (c>0); if (a=b) and (b=c) then writeln ('Равносторонний') else writeln('Не равносторонний или такой треугольник не существует'); end. "writeln" -- это то, что должна вывести программа на экране, то есть какой-то текст с информацией. "readln" -- это то, что должен ввести пользователь данной программы, то есть цифры. "until" -- условие, которому должны подчинятся вводимые числа, если так не будет происходить, то программа выведет ошибку, если не прописана отдельно, что если такого треугольника не существует, writeln('нет решения'). "if" -- так же программа, которая дает точное задание программе, если числа подходят под условия, пишется ответ.