Дано 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.