fork download 
  1. program ideone;
  2. var i : Integer;
  3.  
  4. begin
  5.  
  6. repeat
  7. i := i + 5;
  8. WriteLn(i);
  9. until i>=200;
  10.  
  11. end.
Success #stdin #stdout 0s 276KB
comments (?)
stdin 
Standard input is empty
stdout 
5
10
15
20
25
30
35
40
45
50
55
60
65
70
75
80
85
90
95
100
105
110
115
120
125
130
135
140
145
150
155
160
165
170
175
180
185
190
195
200
https://ideone.com/4qMF9a
language:
Pascal (fpc 3.0.4)
created:
8 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!