<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,c):=ReadReal3('Введите длины сторон треугольника:');
if (a=b) and (a=c) then Writeln('Треугольник равносторонний')
else Writeln('Треугольник не равносторонний')
end.
1 10
2 35
3 Количество цифр и сумма цифр
4 1.1
5 16
Январь февраль март апрель май июнь июль август сентябрь октябрь ноябрь декабрь