дано четырехзначное число. вывести последовательно на экран сумму его цифр, произведение его цифр "число перевертыш"

var a, b,c,d,e:longint;begin readln(a); b:=a biv 1000; c:=a biv 100 mod 10; d:=a biv 10 mod 10; e:= a mod 10; writeln(b+c+d+e); writeln(b×c×d×e); writeln(e,d,c,b);end.