Помогите) Нужно написать код программы) Суть программы: Надо запросить с пользователя число и потом что бы он разложилось на части. Ти по 251, а получается 2_5_1.

Проще всего задача решается, если разрешено использовать строки:

var a, i:integer; s:string;

begin

write ('Введите число = ') ; readln (a) ;

str (a, s) ;

for i:=1 to length (s) - 1 do write (s[i],'_') ;

writeln (s[length (s) ]) ;

end.