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