Объяснение:
1) Без составных условий.
program abc;
var x,y,v:real;
begin
readln(x,y);
if (x>1) then
begin
if (y>1) then
v:=x+y
else
v:=x-y;
end
else begin
if (y>1) then
v:=-x+y
else
v:=-x-y;
end;
writeln(v);
end.
2) С составным.
program abc;
var x,y,v:real;
begin
readln(x,y);
if (x>1) and (y>1) then
v:=x+y;
if (x>1) and (y<=1) then
v:=x-y;
if (x<=1) and (y<=1) then
v:=-x-y;
if (x<=1) and (y>1) then
v:=-x+y;
writeln(v);
end.
