Дано натурально число. определить произведение 2 и 3 цифры

//PascalABC.NET
//Версия 3.3, сборка 1611 
begin
write('Введите число: ');
var a:=ReadInteger().ToString();
write('произведение 2 и 3 цифры: ',a[2].ToDigit()*a[3].ToDigit());
end.

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('n =') div 10;
Writeln(n mod 10 * (n div 10 mod 10));
end.