Задача. Дано целое число N \(N \\gt  0\). Определить сумму цифр в пятеричной записи числа N .

Составьте программу для решения задачи.

• program N;
• var S, x: integer;
• S := 0;
• begin
• readln \( x \);
• while x > 0 do begin
• S := S + x mod 5;
  x := x div 5;
• end;
• write\( S \);
• end.