Код программы
program raf105;
var x,y:real;
begin
write('Введите x и y: ');
readln(x,y);
if (x<0) and (y>0)
then writeln('Точка находится во 2 четверти координатной плоскости')
else writeln('Точка не находится во 2 четверти координатной плоскости');
end.
Алгоритм
Ввести x,y
если x меньше нуля и y больше нуля
то точка находится во второй четверти
иначе точка не находится во второй четверти