Найти сумму цифр x*y+z*f числа xyzf

Пример работы программы:

Ввод 1234

Вывод 14

var a:integer;

begin

read (a) ;

write ((a div 1000) * (a div 100 mod 10) + (a mod 100 div 10) * (a mod 10))

end.

var a:Integer;

begin

readln (a) ;

write ((a div 1000) * ((a div 100) mod 10) + ((a div 10) mod 10) * (a mod 10)) ;

end.

Пояснение:

a - 4-значное число, тогда:

a div 1000 - первая цифра числа.

(a div 100) mod 10 - вторая цифра числа.

(a div 10) mod 10 - третья цифра числа.

a mod 10 - четвёртая цифра числа.