Даны вещественные ненулевые числа x, y. если они имеют разные знаки, то отрицательное заменить его абсолютным значением. в противном случае оба числа заменить на число 100.

на паскале решить?

var x,y:real;
begin
Writeln('Input x: ');
Readln(x);
Writeln('Input y: ');
Readln(y);
if ((x>0) and (y>0))or((x<0) and (y<0)) then
begin
x:=100;
y:=100;
end;
if ((x<0) and (y>0)) then
x:=Abs(x);
if ((x>0) and (y<0)) then
y:=Abs(y);
Writeln('Result: ');
Writeln('x=',x:5:2);
Writeln('y=',y:5:2);
readln;
end.