С клавиатуры вводится трехзначное число. Составьте программу выводящую сумму его чисел.

var   a, s: integer; // целочисленный тип данных begin writeln('Введите число:');   readln(a); // вводим число (можно больше трех знаков)   while a <> 0 do  // пока остались цифры в числе выполнять...   begin     s := s + (a mod 10); // Отбираем последнюю цифру числа и прибавляем к сумме     a := a div 10; // Стираем последнюю цифру числа   end;   writeln('Сумма цифр = ', s) // выводим результат end.