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.