Выяснить существует ли треугольник с длинами сторон x,y,z - Pascal ABC

Формулировка задачи:

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

Решение задачи: «Выяснить существует ли треугольник с длинами сторон x,y,z»

Листинг программы

var x,y,z:integer;
begin
readln(x,y,z);
if (x+y>z) and(x+z>y)and(z+y>x) then writeln('Треугольник существует.')
else writeln('Такого треугольника нет в природе.');
end.

Объяснение кода листинга программы

Создается переменная x типа integer и присваивается ей значение, считываемое с помощью функции readln.
Создается переменная y типа integer и присваивается ей значение, считываемое с помощью функции readln.
Создается переменная z типа integer и присваивается ей значение, считываемое с помощью функции readln.
Проверяется условие (x+y>z) and (x+z>y) and (z+y>x). Это условие проверяет, существуют ли три числа, удовлетворяющие теореме косинусов для треугольника.
Если условие выполняется, то выводится сообщение Треугольник существует.
Если условие не выполняется, то выводится сообщение Такого треугольника нет в природе.