Напишите программу, которая выводит в столбец произведения чисел - Pascal

Формулировка задачи:

Напишите программу, которая выводит в столбец произведения чисел а = 143, b = 777 и чисел 1, 2, 3, ... 9. Результаты решения этой задачи могут удивить и озадачить. Тысячелетиями человечество, выполняя различные вычисления, находило среди чисел и результатов операций с ними интересные закономерности. Некоторым числам, например, 3, 7, 13, 666 и т. п., придавалось мистическое значение. В наше время, имея доступ к компьютеру, можно целенаправленно заниматься поиском различных «фокусов» с числами. Как правило, такой поиск требует значительных переборов вариантов и по силам только компьютеру.

Решение задачи: «Напишите программу, которая выводит в столбец произведения чисел»

Листинг программы

var a,b,c,q:integer;
begin
a:=143;
b:=777;
for c:=1 to 9 do
 begin
  q:=a*b*c;
  writeln(q:5);
 end;
end.

Объяснение кода листинга программы

Объявление переменных:
- a - целое число (integer) с начальным значением 143
- b - целое число (integer) с начальным значением 777
- c - целое число (integer)
- q - целое число (integer)
Начало основной части программы (begin)
Цикл от 1 до 9 (for c:=1 to 9 do)
Внутри цикла:
- Присваивание переменной q значения произведения a, b и c (q:=abc;)
- Вывод значения q в столбец с шириной 5 символов (writeln(q:5);)
Конец цикла (end;)
Конец основной части программы (end.) Итак, данная программа вычисляет произведение чисел a и b, умноженное на значения от 1 до 9, и выводит результаты в столбец.