Номер 10 ( а и б) решите пожалуйста!!! срочно

а) var x,y : real; begin write('x = '); readln(x); write('y = '); readln(y); if y<=1 then writeln('Да') else writeln('Нет'); end. Пример: x = 2 y = -1 Да б) var x,y : real; begin write('x = '); readln(x); write('y = '); readln(y); if y<=-x then writeln('Да') else writeln('Нет'); end. Пример: x = 2 y = -1 Нет