Задача 4 для Lazarus

Question

Задача 4 для Lazarus

---

Answer 1

Var
   N:longint;
   S,k:byte;
Begin
Write('Введите натуральное число: ');
ReadLn(N);
k:=0;
S:=0;
While N > 0 do
   Begin
   if N mod 10 > 0 then
      Begin
      k:=k+1;
      S:=S+N mod 10;
      End;
   N:=N div 10
   End;
WriteLn('Сумма цифр: ',S);
WriteLn('Количество ненулевых цифр: ',k);
WriteLn('Среднее арифметическое ненулевых цифр: ',S/k);
End.