в программе написанной выше можно два варианта объединить, когда числа имеют разные знаки. Если х*у<0 далее проверить, x>0, если да,то сравниваем с у, и изменяем, а если не x>0, то заменяем на модули if x*y<o then begin x:=3*x; y:=3*y end
else if x>0 then if x>y then begin x:=y; y:=y/10 end
else begin y:=x; x:=x/ end
else begin x:=abs(x); y:=abs(y) end;
