Question

ПОМОГИТЕ ПОЖАЛУЙСТА!Я ВАС ОТБЛАГОДАРЮ!
Дана точка с координатами(x,y). Вывести ответ "Да" если точка лежит в первой координатной области,иначе- вывести "Нет".

Answer 1

Var
x,y:integer;
Begin
writeln('x: ');
readln(x);
writeln('y: ');
readln(y);
if (x>0) and (y>0) then writeln('ДА') else writeln('НЕТ');
End.
------------------Помогло ? Скажите спасибо-----------------