Напишите программу, которая вводит трехзначное число и разбивает его на цифры. Пример: при вводе числа 123 программа должна вывести "1, 2, 3" 

var numb,sot,des,ed:integer;beginreadln(numb);sot:=numb div 100;des:= numb mod 100;des:= des div 10;ed:= numb mod 10;writeln(sot,' ',des,' ',ed);end.