Очень срочно, поэтому много опечаток

Доброго времени суток.

Все достаточно просто.

ReadLn(N);
S := 0; {сумма цифр}
M := 0; {перевернутое число}
while N > 0 do begin
d := N mod 10; {цифра младшего разряда}
N := N div 10; {число без младшего разряда}
S := S + d;
M := M * 10 + d;
end;
WriteLn('Сумма цифр = ', S);
WriteLn('"перевернутое" число = ', M);

Бамп

>>146897848
Спасибо