Дан треугольник со сторонами 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Не равносторонний или такой треугольник не существует