Составьте программку,определяющую номер координатной четверти,в которой находится точка с

Var x,y:real;
begin
  write ('X = ');
  readln (x);
  write ('Y = ');
  readln (y);
  if (xgt;0) and (ygt;0) then writeln (1) else
   if (xlt;0) and (ygt;0) then writeln (2) else
    if (xlt;0) and (ylt;0) then writeln (3) else
     if (xgt;0) and (ylt;0) then writeln (4);
end.