<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b:integer;
Write('Введите a и b: '); Read(a,b);
Writeln('П=',Range(a,b).Aggregate(BigInteger(1),(m,n)->m*n))
end.
<u>Пример</u>
Введите a и b: 13 57
П=84607064997021339293398188869165201400121387478093188300800000000000
Ну если надо поменять единицы на сотни, то может получиться так:
var
a: integer;
begin
readln(a);
writeln((a div 10) * 10 + (a div 100));
end.
Если это элементарное заполнение по принципу 1 сигнал - 1 клетка