Напечатать таблицу умножения для числа 12 - Pascal

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

Cоставить программу(в виде блок-схемы) для решения задачи:Напечатать таблицу умножения для числа 12.

Решение задачи: «Напечатать таблицу умножения для числа 12»

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

begin
  var A := ReadLnReal('A =');
  var B := ReadLnReal('B =');
  var x := -1.2;
  repeat
    WriteLnFormat('y({0,4:0.0}) = {1,10:0.00000}', x, (x > 0 ? A*x*x + B*x : 5*A*x+sin(B*x)));
    x += 0.2;
  until x > 1.2;
end.

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

В данном коде происходит следующее:

Запрашивается ввод значения переменной A с помощью функции ReadLnReal.
Запрашивается ввод значения переменной B с помощью функции ReadLnReal.
Создается переменная x, которая равна -1.2.
Запускается цикл repeat, который будет выполняться до тех пор, пока значение переменной x не станет больше 1.2.
Внутри цикла выводится формула y(x) = Axx + Bx, если x положительное число. Если x отрицательное, то выводится формула y(x) = 5Ax + sin(Bx).
Значение переменной x увеличивается на 0.2.
После выхода из цикла, выводится сообщение об окончании расчета. Данный код выводит таблицу умножения для числа 12.