Написать программу в паскале, которая проверяет проверяет по заданным трем сторонам треугольник на равносторонность

Program E4; 
  var a, b, с: real; 
begin
  writeln (введите длины трех сторон треугольника );
  readln (a, b, с);
  write (треугольник со сторонами , а, Ь, с);
  if (а + b > с) and (b + с > a) and (а + с > Ь) then
begin
     writeln (существует);
     if (a = b) and (a = c) then
     writeln (равносторонний)
     else
     writeln (неравносторонний);
  else 
     writeln (не существует);
end;
  readln 
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.