Из числа 351 надо сделать перевертыш. буду за максимально подробное описание

Var a,b,c,d,e:integer;
begin
d:=351;
a:= d mod 10;
e:=d div 10;
b:=e mod 10;
c:=e div 10;
writeln(a,b,c);
end.