Ideone.com

fork download

   var a: string;
         i, n: byte;
    begin
     read (a);
     n:=length (a);
     for i:=1 to n do
     writeln (a[i]);
    end.

Success #stdin #stdout 0s 288KB

stdin

stdout

https://ideone.com/c3I7zo

language:

Pascal (fpc 3.0.4)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

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