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

Алг
нач
цел число, цифра, сумма_цифр, произведение_цифр

число := 0

нц пока число < 1000 или число > 9999
ввод число
кц

сумма_цифр := 0
произведение_цифр := 1

нц пока число > 0
цифра := mod(число, 10)
сумма_цифр := сумма_цифр + цифра
произведение_цифр := произведение_цифр * цифра
число := int(число / 10)
кц

вывод сумма_цифр
вывод произведение_цифр
кон