Program ololo;
var x,y:real;
begin
writeln('Введите x и y');
readln(x,y);
if (x<0) and (y<0) then begin<br>x:=x+10;
y:=y+10;
end;
if (x>0) and (y>0) then begin
x:=x/2;
y:=y/2;
end;
if x=0 then writeln('Неверное значение');
writeln('x=',x,'y=',y);
end.