Даны три вещественных числа x,y,z. Определить, существует ли треугольник с длинами сторон x,y,z. Если треугольник существует, определить его тип (равносторонний, равнобедренный, прямоугольный) и вычислить все углы в градусах. Напечатать длины сторон с противолежащими углами — Pascal(Паскаль)

var x,y,z: real;
Begin
  Write('x = '); Readln(x);
  Write('y = '); Readln(y);
  Write('z = '); Readln(z);
  if (x+y<=z)or(x+z<=y)or(y+z<=x) then 
    Writeln('Треугольник с такими длинами сторон не существует')
    else
    if (x=y)and(y=x) then Writeln('Это равносторонний треугольник')
      else
        if (x=y)xor(z=y)xor(x=z) then Writeln('Это равнобедренный треугольник')
End.