Помогите решить задачу по информатике ** Pascal.

Question

Помогите решить задачу по информатике на Pascal.

---

Answer 1

var x,y:integer;
begin 
readln(x,y);
if (x<0) or (y<0) then begin</strong>
x:=abs(x);
y:=abs(y);
end
else if (x>0) and (y>0)then begin 
x:=x-1; 
y:=2*y;
end;
writeln(x+' '+y);
end.

Comments

Спасибо огромное)))