Ideone.com

fork download

copy

var k,i:integer;
begin
k:=1;
for i:=1 to 24 div 3 do
 begin
 k:=k*2;
 writeln(3*i:3, ': k = ',k);
 end;
end.

Success #stdin #stdout 0.01s 5476KB

stdin

copy

Standard input is empty

stdout

copy

  3: k = 2
  6: k = 4
  9: k = 8
 12: k = 16
 15: k = 32
 18: k = 64
 21: k = 128
 24: k = 256

https://ideone.com/BSJRJC

language:

Pascal (gpc 20070904)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!