const n = 25; var s:string; i : integer; begin for i:=1 to n do begin s[0] := chr(ord(s[0]) + 1); s[i] := chr(i + 48); writeln(s); end; end.
Standard input is empty
1 12 123 1234 12345 123456 1234567 12345678 123456789 123456789: 123456789:; 123456789:;< 123456789:;<= 123456789:;<=> 123456789:;<=>? 123456789:;<=>?@ 123456789:;<=>?@A 123456789:;<=>?@AB 123456789:;<=>?@ABC 123456789:;<=>?@ABCD 123456789:;<=>?@ABCDE 123456789:;<=>?@ABCDEF 123456789:;<=>?@ABCDEFG 123456789:;<=>?@ABCDEFGH 123456789:;<=>?@ABCDEFGHI