program test1;
uses crt;
var x,y:real;
begin
   clrscr;
   randomize;
   y := random(2);
   if y = 0 then y := -1;
   x := random(100) * y;
   writeln('X = ', x:5:3, ' Y = ', y:5:3);
   readkey;
end.