fork download
  1. program ideone;
  2. var x:string[255] = 'Walker Is Injured On The Job.';
  3. var y:string[255] = 'Walker Is Blind Currently';
  4. var z:string[255] = 'Walker Got His Sight Back';
  5. begin
  6. writeln('The Pascal 20070904 Walker Texas Ranger Program.');
  7. writeln(x);
  8. writeln(y);
  9. writeln(z);
  10. end.
Success #stdin #stdout 0s 5284KB
stdin
1
2
10
42
11
stdout
The Pascal 20070904 Walker Texas Ranger Program.
Walker Is Injured On The Job.
Walker Is Blind Currently
Walker Got His Sight Back