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

А)
var x,y : real;
begin
write(x = ); readln(x);
write(y = ); readln(y);
if ylt;=1 then writeln(Да) else writeln(Нет);
end.

Пример:
x = 2
y = -1
Да

б)
var x,y : real;
begin
write(x = ); readln(x);
write(y = ); readln(y);
if ylt;=-x then writeln(Да) else writeln(Нет);
end.

Пример:
x = 2
y = -1
Нет