fork download 
  1. program SumOfSquares;
  2. var n,i,s:integer;
  3. begin
  4. write('n=');
  5. read(n);
  6. s:=0;
  7. for i:=1 to n do
  8. s:=s+i*i;
  9. write('S=',s);
  10. end.
  11. 2
Success #stdin #stdout 0.01s 5328KB
comments (?)
stdin 
5
stdout 
n=S=55
https://ideone.com/Qg24EF
5
language:
Pascal (fpc 3.0.4)
created:
7 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!