Написать программку (по аналогии. Дано трехзначное число. Отыскать творение его

Program n_1;

var x:integer;

begin

   readln(x);

   x:=(x mod 10)*(trunc(x/10) mod 10);

   writeln(x);

end.

Это если под первыми цифрами предполагаются 10-ки и единицы.

Если имелись ввиду сотки и десятки, то

Program n_1;

var x:integer;

begin

   readln(x);

   x:=(trunc(x/10) mod 10)*(trunc(x/100) mod 10);

   writeln(x);

end.