Получить случайное трехзначное число и вывести через запятую все его отдельные цифры....

Question

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

Answer 1

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