program calc;
var x,y:real;
begin
writeln('введите значения x, y);
readln(x,y);
if ((x<0) and (y>=0)) or ((x>=0) and (y<0)) {проверка если только одно число отрицательное}
then begin x:=x+0.5; y:=y+0.5; end else
if (x<0) and (y<0) {проверка 2-х отрицательных}
then begin x:=abs(x); y:=abs(y); end else
if ((x<0.5) and (x>=0) or (x>2)) and ((y<0.5) and (y>=0) or (y>2)) {проверка 2-х положительных не из отрезка}
then begin x:=x/10; y:=y/10; end;
writeln ('x=',x,'y=',y);
readln;
end.