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

Question

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

Answer 1

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.