Можно сделать очень просто, введи каждую цифру данного трехзначного числа отдельно и совершай с ними все арифметические операции.
Uses Crt;
Var a,b,c,s,p:integer;
Begin
ClrScr;
writeln('Введи трехзначное число');
readln( a,b,c); {После ввода каждой цифры жми Enter}
s:=0; s:=a+b+c;
p:=1; p:=a*b*c;
writeln('Сумма цифр s= ',s:5, 'Произведение цифр p= ',p:7);
readkey
End.