fork download
copy 
  1. var a, k : integer;
  2.  
  3.   begin
  4.  
  5.   a := 40;
  6.  
  7.     for k := 2 to 5 do
  8.  
  9.     a := a – k;
  10.  
  11.   write(a);
  12.  
  13. end.
Compilation error #stdin #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/Xy7Dd
language:
Pascal (fpc 3.0.4)
created:
14 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!