Явас ! дана точка с координатами(x,y). вывести ответ "да" если точка лежит в первой координатной области,иначе- вывести "нет".

Var
x,y:integer;
Begin
writeln('x: ');
readln(x);
writeln('y: ');
readln(y);
if (x>0) and (y>0) then writeln('ДА') else writeln('НЕТ');
End.
Скажите