Определить, какой четверти координатной плоскости, оси Х, оси У или началам координат принадлежит точка с координатами, заданными случайным образом. Pascal ABC

Var
x,y:integer;
begin
readln(x);
readln(y);
if (x>0)and(y>0)then writeln(1);
if (x<0)and(y<0)then writeln(3);
if (x<0)and(y>0) then writeln(2);
if (x>0)and(y<0) then writeln(4);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.