Напиши программу: Можно ли на листе бумаги, со сторонами x см и у см, разместить прямоугольный треугольник с катетами a см и b см, параллельными краям листа.
Если лист квадратный, то как края листа могут быть параллельны катетам треугольник?
Всё, понял...
Var x,y,a,b:real; Begin Write('x = '); ReadLn(x); Write('y = '); ReadLn(y); Write('a = '); ReadLn(a); Write('b = '); ReadLn(b); if ((aelse Write('Нельзя'); End.