Нужна помощь! С подмогою операторов div и mod написать программку

Program N1;

var a,c1,c2,c3: integer;

begin

 writeln('Введите число');

 read(a);

 c1:=a mod 10;

 c2:=(a div 10) mod 10;

 c3:=(a div 100) mod 10;

 writeln('Кол-во сотен = ',c3);

 writeln('Кол-во 10-ов = ',c2);

 writeln('Кол-во единиц = ',c1);

end.