fork download
copy 
  1. program ideone;
  2. const
  3.   text: array(.1..5.) of char = ('H', 'e', 'l', 'l', 'o');
  4. var
  5.   i: Byte;
  6. begin
  7.   for i := 1 to 5 do
  8.     WriteLn(text(.i.))
  9. end.
  10.  
Success #stdin #stdout 0s 5572KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
H
e
l
l
o
https://ideone.com/SVYzuj
language:
Pascal (gpc 20070904)
created:
2 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!