)нужно написать код программы) суть программы: надо запросить с пользователя число и потом что бы он разложилось на части. ти по 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.