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

program triangle;var x, y, z: real;beginwriteln(\'Введите длину 3 сторон треугольника через пробел\');readln(x,y,z);if ((x+y<=z) or (x+z<=y) or (y+z<=x)) then writeln(\'С указанными сторонами треугольник существовать не может\')elsewriteln(\'Можно построить треугольник с указанными сторонами\')end.