fork download
copy 
  1. program ideone;
  2. begin
  3. 	(* your code goes PROGRAM TEST (INPUT, OUTPUT);
  4.  
  5. VAR
  6.   S, I, N: INTEGER;
  7.  
  8. BEGIN
  9.   WRITE('6 ');
  10.   READLN(N);
  11.  
  12.   S := 0;
  13.  
  14.   FOR I := 1 TO N DO
  15.   BEGIN
  16.     IF I MOD 2 = 0 THEN
  17.     BEGIN
  18.       S := S + I;
  19.       WRITELN('ПОТОЧНЕ ЗНАЧЕННЯ = ', I, ' S = ', S);
  20.     END;
  21.   END;
  22.  
  23.   WRITELN('ФІНАЛЬНИЙ РЕЗУЛЬТАТ СУМА S = ', S);
  24. END.here *)
  25. end.
Success #stdin #stdout 0s 5284KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/0e04cL
language:
Pascal (fpc 3.0.4)
created:
11 days 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!