А)
var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if y<=1 then writeln('Да') else writeln('Нет');<br>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('Нет');<br>end.
Пример:
x = 2
y = -1
Нет