Получить случайное трехзначное число и вывести через запятую все его отдельные цифры. Сделать для программы Паскаль! Без mod и div

var x:integer; begin randomize; x:=random(1000); writeln(x); writeln(x div 100,',', x div 10 mod 10,',', x mod 10); end.