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 ('-. Точка лежит на оси.');
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
Наверное вот так