Помогите решить задачку!С клавиатуры вводятся натуральные числа. Признак конца ввода

var n, sum, mult: integer;begin write('Enter number: '); readln(n); sum := 0; mult := 1; while n > 0 do begin sum := sum + n mod 10; mult := mult * (n mod 10); n := n div 10 end; writeln('Sum of digits = ', sum); writeln('Multiplication of digits = ', mult); так?

var n, sum, mult: integer; begin write('Enter number: '); readln(n); sum := 0; mult := 1; while n gt; 0 do begin sum := sum + n mod 10; mult := mult * (n mod 10); n := n div 10 end; writeln('Sum of digits = ', sum); writeln('Multiplication of digits = ', mult);