Вывести многозначное число, при том что writeln может выводить только одну цифру

Const N=5;
var Mas:array[1..N] of longint;
    c:longint;
    i,b:integer;
 
 
 
begin
 
write('Input chislo:');
readln(c);
i:=0;
 while c<>0 do
  begin
   inc(i);
   Mas[i]:=c mod 10;
   c:=c div 10;
  end;
 
  for b:=i downto 1 do
   write(Mas[b]);
 
readln;
end.

program xxx;
var
 n,i:longint;
 es:string;
begin
 writeln('Введите число');
 readln(n);
 str(n,es);
 for i:=1 to length(es) do
  writeln(es[i]);
 readln;
end.

program xxx;
var
 n,i:longint;
 es:string;
begin
 writeln('Введите число');
 readln(n);
 str(n,es);
 for i:=length(es) downto 1 do
  writeln(es[i]);
 readln;
end.

uses crt;
procedure reverse (n:longint);
begin
  write (n mod 10);
  if (n div 10) < > 0 then reverse (n div 10)
end;
var n:longint;
begin
clrscr;
write('n=');readln(n);
reverse(n);
readln
end.

uses crt;
procedure PrintCif(ch:longint); {n>0}
begin
  if ch<10 then
  writeln(ch)
  else
  begin
    PrintCif(ch div 10);
    writeln(ch mod 10);
  end;
end;
var n:longint;
begin
clrscr;
write('n='); readln(n);
PrintCif(n);
readln
end.

Program Hanoi3;
var N:byte;
Procedure Hanoi(first, second, third, N:byte);
 Begin
 if N=1 then
 writeln(first,'-->',third,';')
 else
  begin
  Hanoi(first, third, second, N-1);
  Hanoi(first, second, third, 1);
  Hanoi(second, first, third, N-1);
  end;
 end;
begin
writeln('vvedite N=');
readln(N);
if N>0 then
Hanoi(1,2,3,N);
end.