9.

var x, y : integer;

begin

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

   readln(x, y);

   write('Точка с координатами (', x, ',', y, ') ');

   if (x > 0) and (y > 0) then write('лежит') else write('не лежит');

   writeln(' в первой координатной четверти')

end.

улучшенный вариант, находит где именно находится точка

var x, y : integer;

begin

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

   readln(x, y);

   write('Точка с координатами (', x, ',', y, ') лежит ');

   if (x > 0) and (y > 0) then write('в первой координатной четверти')

       else if (x < 0) and (y > 0) then write('во второй координатной четверти')

           else if (x < 0) and (y < 0) then write('в третьей координатной четверти')

               else if (x > 0) and (y < 0) then write('в четвертой координатной четверти')

                   else if (x <> 0) and (y = 0) then write('на оси X')

                       else if (x = 0) and (y <> 0) then write('наоси Y')

                           else write('в центре');

end.

10.

var a, b, c, k : integer;

begin

   write('введите числа a,b,c: ');

   readln(a, b, c);

   write('введите k: ');

   readln(k);

   write('число ', k);

   if (a mod k <> 0) and (b mod k <> 0) and (c mod k <> 0) then writeln(' не является делителем введенных чисел')

   else begin

       write(' является делителем: ');

       if a mod k = 0 then write(a);

       if b mod k = 0 then write(' ', b);

       if c mod k = 0 then write(' ', c);

   end;    

end.