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