fork download
copy 
  1.     program ideone;
  2.     var n, i, rs, z :integer;
  3.     begin
  4.    rs := 5;
  5.    n:= 7;
  6.     i := 0;
  7.  
  8.     while (i<n) do begin
  9.   // writeln(rs);
  10.     	rs := rs+2+rs;
  11.  
  12.     i:=i+1;
  13.     end;
  14.     writeln("raspuns: ",rs);
  15.     	(* your code goes here *)
  16.     end.
Success #stdin #stdout 0s 9120KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
raspuns: 894
https://ideone.com/xC7psd
language:
Pascal (gpc 20070904)
created:
6 years 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!