fork download
copy 
  1. program ideone;
  2.  var a,b,n,i : integer;
  3. begin
  4.  a:=3;
  5.  n:=50;
  6.  b:=0;
  7.    for i := 1 to n do
  8.      begin
  9.       b := a * i ;
  10.       writeln (b);
  11.       b := 0;
  12.      end; 
  13. end.
Success #stdin #stdout 0s 5324KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
3
6
9
12
15
18
21
24
27
30
33
36
39
42
45
48
51
54
57
60
63
66
69
72
75
78
81
84
87
90
93
96
99
102
105
108
111
114
117
120
123
126
129
132
135
138
141
144
147
150
https://ideone.com/VQbUlJ
language:
Pascal (fpc 3.0.4)
created:
10 hours 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!