Дано 3-х значное число 121,разбить его на три числа 1,2,1

var  a: word;  x, y, z: byte;begin  readln(a);  x := a div 100;  y := a mod 100 div 10;  z := a mod 10;  writeln(x, ', ', y, ', ', z);end.