хелп ми плез """"""""""""""""""" Паскаль

9.

var x, y : integer;

begin

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

   readln(x, y);

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

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

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

end.

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

var x, y : integer;

begin

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

   readln(x, y);

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

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

       else if (x lt; 0) and (y gt; 0) then write('во 2-ой координатной четверти')

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

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

                   else if (x lt;gt; 0) and (y = 0) then write('на оси X')

                       else if (x = 0) and (y lt;gt; 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 lt;gt; 0) and (b mod k lt;gt; 0) and (c mod k lt;gt; 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.