fork download
copy 
  1.    var a: string;
  2.          i, n: byte;
  3.     begin
  4.      read (a);
  5.      n:=length (a);
  6.      for i:=1 to n do
  7.      writeln (a[i]);
  8.     end.
Success #stdin #stdout 0s 288KB
comments (?)
stdin
copy 
12345
stdout
copy 
1
2
3
4
5
https://ideone.com/c3I7zo
language:
Pascal (fpc 3.0.4)
created:
9 years ago
visibility:
public

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!