Question

Пж ответьте на 10ое, оч нужно пжжжжжж.

Answer 1

pascal abc

var x,y:integer;

begin

readln(x,y);

if (x>y) and (x<0) and (y<0)then

begin

x:=x*2;

y:=y*2;

end

else begin

x:=x+2;

y:=y+2;

end;

writeln(x,y)

end.