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

Var a,a1,a2,a3,s,p:integer;
begin
write('a = ');
readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
a3:=a mod 10;
s:=a1+a2+a3;
p:=a1*a2*a3;
writeln('s = ',s,' p = ',p);
end.

Пример:
a = 215
s = 8 p = 10