Дано натуральное число n найдите сумму его чисел и произведение.В PascalABC, и через команду while

Program asdw;
Uses crt;
Var x,s,s1:integer;
begin
read (x);
s1:=1;
s:=1;
while x>0 do
begin
s1:=s1*x mod 10;
s:=s+x mod 10;
x:=x div 10;
end;
writeln (s);
writeln (s1);
end.