Дано 5 ти значное число 54321 найти произведение 2 и 4 цифры

4*2=8

Но если нужна программа, то вот:
var
  a: word;
  b: byte;

begin
  readln(a);
  b := a mod 100 div 10;
  a := a div 1000 mod 10;
  writeln(a, ' * ', b, ' = ', a * b);
end.