Для решения данной задачи вам нужно проверить, совпадают ли знаки двух чисел. Это можно сделать с помощью логического условия в команде ветвления. Одним из вариантов проверки может быть следующее условие:
if (x >= 0) and (y >= 0) or (x < 0) and (y < 0) then
Таким образом, вся команда будет выглядеть так:
readln(x);
readln(y);
if (x >= 0) and (y >= 0) or (x < 0) and (y < 0) then
begin
x := x + 10;
y := y + 10;
end;
Это условие проверяет, что оба числа либо неотрицательные, либо оба отрицательные, и в случае их совпадения по знаку увеличивает оба числа на 10. Если знаки не совпадают, они останутся без изменений.