Напиши программу: Можно ли на листе бумаги, со сторонами x см и у см, разместить прямоугольный треугольник с катетами a см и b см, параллельными краям листа.

Var x,y,a,b:real;BeginWrite('x = ');ReadLn(x);Write('y = ');ReadLn(y);Write('a = ');ReadLn(a);Write('b = ');ReadLn(b);if ((a<x)and(b<y))or((b<x)and(a<y)) then Write('Можно')else Write('Нельзя');End.