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

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