Переделать в обратном порядке(число вроде). var a1, a2, a2, a3, a4 begin readln (a); 2943 a1: = a div 1000; (2) a2: =a div 100 mod 10; (4) a4: =a mod 10; (3) writeln (a1*a2*a3*a4) end.

Var a, a1, a2, a3, a4: integer;
Begin
write('a = ');
Readln (a);
a1:= a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10; 
a4:=a mod 10;
Writeln (a4*1000+a3*100+a2*10+a1);
End.

Пример:
a = 2943
3492