Дан треугольник со сторонами a, b, с. Определить, является ли он равносторонним. На Pascal ABC

Var a, b, c:real;

begin

repeat

write ('Введите длины сторон треугольника 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.

Тест №1

Введите длины сторон треугольника a, b, c 5 5 - 5

Введите длины сторон треугольника a, b, c 5 5 5

Равносторонний

Тест №2

Введите длины сторон треугольника a, b, c 5 6 5

Не равносторонний или такой треугольник не существует