написать программу , которая вводит с клавиатуры число от 0 до 999999(использовать переменные типа longint) и выдает на экран дисплея сумму цифр этого числа. Напишите в делфи пожалуйста.

var    n: longint;    i, sum: integer;begin    Readln(n);    Sum := 0;        while n > 0 do     begin        Sum := sum + (n mod 10);        n := n div 10;    end;    Writeln(sum);end.