Написать программу на паскале (цикл repeat)Задано натуральное число N, вычислите сумму его цифр. N=1024

Вот программа

var

 N, s: integer;

begin

 read(N);

 s := 0;

 repeat

   s := s + N mod 10;

   N := N div 10;

 until N = 0;

 writeln(s);

end.