uses crt; 
var
   num , loop : byte; 

begin
   clrscr; 

   write( ' insert number = ' ); 
   readln( num ); 

{ หรือจะใช้ repeat until หรือ while do แทนก็ได้ }
   for loop :=1 to num do
      write( 1 ); 

   readln; 
end.

  1
 2
3

    1
   2
  3
 4
5

321
321
321

54321
54321
54321
54321
54321