Определить и вывести на экран по отдельности цифры целого числа N

var
i,num:integer;
num_s:string;
begin
write(vvedite celoe chislo: );
read(num);
num_s:=IntToStr(num);
for i:=1 to num_s.length do
write( ,num_s[i]);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.