определите находится ли точка с координатами x y во 2 четверти

Var x,y:float;

begin

read(x,y);

If(xlt;0)and(ygt;0) Then write(находится) Else (не находится);

End.

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

program raf105;

var x,y:real;

begin

write('Введите x и y: ');

readln(x,y);

if (xlt;0) and (ygt;0)

 then writeln('Точка находится во 2 четверти координатной плоскости')

 else writeln('Точка не находится во 2 четверти координатной плоскости');

end.

Метод

Ввести x,y

если x меньше нуля и y больше нуля

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

 по другому точка не находится во 2-ой четверти