Кратко и понятно.
```code
var x, a, n, k: integer;
begin
write('Введите x = '); readln(x);
write('Введите начальный множ. n = '); readln(n);
write('Введите конченый множ. k = '); readln(k);
for a := n to k do writeln(x,' * ', a, ' = ', (a * x));
end.
```
Ответ 1 так как 9 / 2=4 полное частное и остаток 1
Таблица истинности на картинке
Жирным отмечен ответ, в последней колонке