Програмирование) дано натуральное четырехзначное число. найти произведение его второй и четвёртой цифры.( pascal abc)

Если считать цифры справа налево(в числе 1234, цифра 4 - первая):
Var
A:integer;
Begin
WriteLn('Введите четырёхзначное число');
ReadLn(A);
WriteLn(((A div 10) mod 10)*(A div 1000));
End.

Если считать слева направо(в числе 1234, цифра 1 - первая):
Var
A:integer;
Begin
WriteLn('Введите четырёхзначное число');
ReadLn(A);
WriteLn(((A div 100) mod 10)*(A mod 10));
End.