Помогите решить задачу по информатике в Паскале

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var n := ReadInteger('Введите двухзначное число:');

 Print((2 * n * 10 + n) * 481)

end.

Пример

Введите двухзначное число: 37

373737

Изъясненье

Пусть дано двухзначное число n. Проделаем с ним обозначенные деяния.

Удвоить: 2n;

Приписать ноль справа (умножить на 10): 20n;

Прибавить начальное: 20n+n = 21n;

Умножить на 481: 21n481 = 10101n = 010101n.

Понятно, что при двухзначном n на месте каждого 01 появится n, что даст трехкратное повторение начального числа.