С клавиатуры вводится целое положительное (может быть равно 0) число B, не превышающее 30 000. Напиши программу, которая считает и выводит на экран сумму цифр числа B. (для паскаля)

var B, s: integer;

begin

 write('Введите целое число B: ');

 read(B);

 s := 0;

 while B > 0 do

 begin

   s := s + B mod 10;

   B := B div 10;

 end;

 writeln('Сумма цифр числа равна ',s);

end.