fork download
copy 
  1. program ideone;
  2. type
  3. 	subInteger = 1..100;
  4. var
  5. 	nu	:subInteger;
  6.  
  7. begin
  8.  
  9. 	nu := 9;
  10.  
  11. 	writeln(' ':5, 'Первоначально число : ', nu:2);
  12.  
  13. 	nu := Succ(nu);
  14.  
  15. 	writeln(' ':5, nu:2);
  16.  
  17. 	nu := Succ(nu);
  18.  
  19. 	writeln(' ':5, nu:2);
  20.  
  21. 	nu := Succ(nu);
  22.  
  23. 	writeln(' ':5, nu:2);
  24.  
  25. 	nu := Succ(nu);
  26.  
  27. 	writeln(' ':5, nu:2);
  28.  
  29. 	nu := Succ(nu);
  30.  
  31. 	writeln(' ':5, nu:2);
  32.  
  33. 	nu := Pred(nu);
  34. 	nu := Pred(nu);
  35. 	nu := Pred(nu);
  36.  
  37. 	writeln(' ':5, nu:2);
  38.  
  39. end.
  40.  
Success #stdin #stdout 0s 5308KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
     Первоначально число :  9
     10
     11
     12
     13
     14
     11
https://ideone.com/L3Fqyr
language:
Pascal (fpc 3.0.4)
created:
2 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!