Помогите ответить на три вопроса в тестах

6) 457) 598) Не понял: надо программу написАть? Если да, то:Program P8;uses crt;var x, y: real;beginclrscr;write ('Введите координату точки по оси x: ');readln (x);write ('Введите координату точки по оси y: ');readln (y);if (x>0) and (y<0) then write ('Да, находится') else write ('Нет, не находится');readkey;end.

6. Ответ 45