var a,b,c:real; //стороны треугольника
begin
writeln('Vvedite a');
read(a);
writeln('Vvedite b');
read(b);
writeln('Vvedite c');
read(c);
if(abs(a-b)<c)and(c<(a+b)) then write('Yes!')
else write('No!');
end.
Результат работы программы
var a,b,c:real; //стороны треугольника
begin
writeln('Vvedite a');
read(a);
writeln('Vvedite b');
read(b);
writeln('Vvedite c');
read(c);
if(abs(a-b)<c)and(c<(a+b)) then write('Yes!')
else write('No!');
end.
Результат работы программы