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

Стороны вводятся с клавиатуры?

да

Var a,b,c:real;
begin
  repeat
    write('Введите длины сторон треугольника a,b,c ');
    readln(a,b,c);
  until (agt;0) and (bgt;0) and (cgt;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
Не равносторонний либо таковой треугольник не существует