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

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.