Составить программку к решению задачки : "дано число n. Найти сумму

program zz1;
var i, b, n, s:integer; // задаем переменные целого типа
begin
write( введите заданное число );
read(n); // вводим с клавиатуры заданное число
i:=0;
while ngt;0 do  // организуем цикл, пока в числе есть цифры
begin
b:=n mod 10; // получаем последнюю цифру
s:=s+b; // добавляем заключительную цифру  к сумме
n:=n div 10; // отбрасываем заключительную цифру из числа
i:=i+1; // считаем количество цифр
end;
writeln( сумма цифр заданного числа = , s);
write( количество цифр в данном числе = , i); // выводим ответ
end.