a:word;
x, y, z:byte;

clrscr;
write('Zadaj trojciferne cislo: ');
readln(a);
x := a div 100;
y := (a mod 100) div 10;
z := (a mod 100) mod 10;
writeln('Cislo ',a,' sa sklada z cifier ',x,', ',y,', ',z);
readln;