Решите задачу программированием линейных алгоритмов - Найти произведение цифр заданного четырехзначного числа.
ПППППППОООООООММММОООООГГГГИИИИТТТТЕЕЕЕЕ!!!!!!

var a,a1,a2,a3,a4,p:integer;beginwrite('a = ');readln(a);a1:=a div 1000;a2:=a div 100 mod 10;a3:=a mod 100 div 10;a4:=a mod 10;p:=a1*a2*a3*a4;writeln('p = ',p);end.Пример:a = 2354p = 120