fork download
copy 
  1. const n = 25;
  2. var s:string;
  3. i : integer;
  4. begin
  5.     for i:=1 to n do begin
  6.         s[0] := chr(ord(s[0]) + 1);
  7.         s[i] := chr(i + 48);
  8.         writeln(s);
  9.     end;
  10. end.
Success #stdin #stdout 0.01s 252KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
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
https://ideone.com/pWwoOr
language:
Pascal (fpc 3.0.4)
created:
11 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!