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

var s,l , o, k :integer;beginwriteln ('3-x значное число');readln (s);k:=s div 100;s:=s mod 100;l:=s div 10;o:=s mod 10;writeln (k,',', l,',', o  );end.