За это 53 ! сделайте программу вычисляющую сумму и произведение цифр шестизначного числа. программа вводит одно число, выводит два числа в разных строках: в первой сумма цифр, во второй произведение. ответ предоставить в виде файла с расширением pas, который содержит текст программы.
var s,p,n,q:integer;
begin
readln(n);
s:=0;p:=1;
while(n>0)do
begin
q:=n mod 10;
s:=s+q;
p:=p*q;
n:=n div 10;
end;
writeln(s,' ',p);
end.
Сохрани программу в расширении pas и всё