Напишите процедуру которая выводит ** экран в столбик все цифры переданного ей числа...

Question

Напишите процедуру которая выводит на экран в столбик все цифры переданного ей числа начиная с 1-ой. Пример 12341
2
3
4

Answer 1

procedure print(a: integer);
var
  i: integer;
  s: string;
begin
  str(a, s);
  for i := 1 to length(s) do
    writeln(s[i]);
end;