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

Var
a,b,c,d:longint;
begin
readln(a);
b:=a div 100 mod 10;
c:=a div 10 mod 10;
d:=a mod 10;
writeln(b+c+d);
writeln(b×c×d);
writeln(d,c,b);
end.