Определить сумму цифр естественного числа n и вывести его запись в

program z2;
uses crt;
var k, s, n: integer; a: longint;
begin
readln (n);
k:=0; s:=0; a:=0;
repeat
k:=k+1;
s:=s+ n mod 10;
a:= a*10 +n mod 10;
n:= n div 10;
until n=0;
writeln (число цифр , k, nbsp;сумма цифр; , s);
writeln (Запись в обр. порядке; ,a);
end.