Составьте программу, определяющую номер координатной четверти, в которой находится точка с координатами(x,y).Числа x,y введите с клавиатуры. Pascal ABC

program koordinati;var x,y:integer;beginwriteln('ввести координаты точки');readln(x,y);if (x>0) and (y>0) then writeln('точка в 1 плоскости');if (x<0) and (y>0) then writeln('точка в 2 плоскости');if (x<0) and (y<0) thne writeln('точка в 3 плоскости');if (x>0) and (y<0) then writeln('точка в 4 плоскости');if (x=0) and (y=0) then writeln('точка в центре');end.