Помогите составить программу в паскале! Дано четырехзначное число. Найти а) сумму его цифр, б) произведение его цифр.

Var

sum, com, n:integer;

begin

Read (n) ; sum:=0; com:=1;

while (n > 0) do begin

sum: = sum + n mod 10;

com: = com * (n mod 10) ;

n: = n div 10;

end;

Writeln ('Сумма - > ', sum) ;

Writeln ('Произведение - > ', com) ;

end.

Пример:

1234

Сумма - > 10

Произведение - > 24