Помогите решить ... (програмирование)

Дано натуральное четырехзначное число. Найти произведение его второй и четвёртой цифры. (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.