var

   x, c, m, n : integer;

begin

   write('введите x = ');

   readln(x);

   writeln('введите начальное и конечное значение для a:');

   write('m = ');

   readln(m);

   write('n = ');

   readln(n);

   for var a := m to n do begin

       c := a*x;

       writeln(a, '*', x, '=', c);

   end;

end.

Кратко и понятно.

```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.

```