Составить программу в Паскале Даны действительные положительные числа x, y, z. выяснить существует ли треугольник с данными сторонами

program triangle;

var x, y, z: real;

begin

writeln ('Введите длину 3 сторон треугольника через пробел');

readln (x, y, z);

if ((x+y<=z) or (x+z<=y) or (y+z<=x)) then

writeln ('С указанными сторонами треугольник существовать не может')

else

writeln ('Можно построить треугольник с указанными сторонами')

end.