Составить программку, которая вычисляет сумму и творение цифр четырехзначного числа

program zz1;
var s, n, k, p:integer; // задаем переменные целого типа
begin
write( введите четырехзначное число );
read(n); // вводим с клавиатуры число
p:=1;s:=0;
while ngt;0 do // организуем цикл, пока в числе есть числа
begin
k:=n mod 10; // получаем заключительную цифру
s:=s + k; // прибавляем ее к сумме
p:=p * k; // умножаем ее на произведение
n:=n div 10; // отбрасываем ее
end;
writeln(творенье цифр четырехзначного числа = , p); // выводим ответ
writeln(сумма цифр четырехзначного числа = , s);
end.