Смотри, тут всё просто: вычитаем и прибавляем 10 к введенному числу.
В Pascal это будет выглядеть так:
program NumberSequence; var num: integer; begin readln(num); writeln(num - 10, ' ', num, ' ', num + 10); end.
Вводишь число, программа выводит последовательность.