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

Я ошибку испрвавил

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.