Запросить стороны треугольника и определить, является ли он разносторонним, равносторонним или равнобедренным. Учесть: третья сторона не должна превышать сумму двух других, иначе треугольник не существует. Задача на тему "Программирование ветвлений на Паскале".

program Triangle;

var x, y, z: integer;

begin

writeln ('Введите стороны треугольника: ')

readln (x);

readln (y);

readln (z); / / стороны треугольника вводятся с клавиатуры

if (x y) and (y z) and (x z) then writeln ('Это разносторонний треугольник') / /если все стороны различны;

else if (x y) or (y z) or (x z) then writeln ('Это равнобедренный треугольник'); / /если хотя бы одна сторона не равна другим;

else writeln ('Это равносторонний треугольник'); / / если все стороны равны.

end.