помогите решить..( програмирование)
Дано натуральное четырехзначное число. Найти произведение его второй и четвёртой цифры.( Pascal ABC)

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