Дано 3-ех значное число,найти сумму цифр числа

В поиске должно было быть...
Если число abc, то решение задачи сходится к представлению 3-ех значного числа как 100*a+10*b+c

Прога для числа с любим количеством символов

{........................................}
readln(a);                   {а-число}       
z:=0;
 while a<>0 do
 begin
  a:=t mod 10;
  t:=t div 10;
  z:=z+a;    {z-и есть результат}
 end;
{........................................}

.

Поиск можно отменять, я так понимаю? Будем КАЖДЫЙ раз решения заново постить? А ведь ЭТО есть даже в FAQ-е !!!