Координаты точки(x, y). написать программу, котрая определяет, в какой координатной четверти находится точка. это 8 класса по информатике, !

Var x, y: integer;beginreadln(x,y);if x>0 then     if y>0 then writeln('1')    else writeln('4')else if y>0 then writeln('2')      else writeln('3');end.