Дано пятизначное число . найти сумму его чисел Паскаль

var x,s,i:integer; begin writeln('введите число'); readln(x); s:=0; while ( x<>0 ) do begin s:=s+(x mod 10); x:=x div 10; end; writeln( 'Сумма цифр числа =', s ); end.