Напишите программу в Паскале по условию Даны действительные числа x,y. Если х,у отрицательны, то каждое значение заменить его модулем; если отрицательное только одно из них, то оба значения увеличить на 27; если оба значения не отрицательны, то оба значения уменьшить на 20.

Предыдущий
вопрос Следующий
вопрос

program ChangeNumbers;
var
x, y: real;
begin
writeln('Enter x:');
readln(x);
writeln('Enter y:');
readln(y);

if (x < 0) and (y < 0) then
begin
x := abs(x);
y := abs(y);
end
else if (x < 0) or (y < 0) then
begin
x := x + 27;
y := y + 27;
end
else
begin
x := x - 20;
y := y - 20;
end;

writeln('New value of x: ', x);
writeln('New value of y: ', y);

end.