Внесите конфигурации в программку из примера 17.2 . Юзер задаёт значение

var a,a1,a2,x,c,i: integer;

begin

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

readln(x);

writeln('Введите a1 и a2:');

readln(a1,a2);

for a:=a1 to a2 do

begin

c:=a*x;

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

end;

end.

Пример:

Введите x = 5

Введите a1 и a2:

2 7

2 * 5 = 10

3 * 5 = 15

4 * 5 = 20

5 * 5 = 25

6 * 5 = 30

7 * 5 = 35