Код программы

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 больше нуля

 то точка находится во второй четверти

 иначе точка не находится во второй четверти

Var x,y:float;

begin

read(x,y);

If(x<0)and(y>0) Then write(‘находится’) Else (‘не находится’);

End.