Var
x,y: real;
begin
write (x = ); read (x);
write (y = ); readln (y);
write (Номер четверти координатной плоскости: );
if (x > 0) and (y > 0) then
writeln (I)
else
if (x < 0) and (y > 0) then
writeln (II)
else
if (x < 0) and (y < 0) then
writeln (III)
else
if (x > 0) and (y < 0) then
writeln (IV)
else
writeln (-. Точка лежит на оси.);
readln
end
Наверное вот так
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.