Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  OneToThirtySeven
Language: PASCAL
Code:
program HelloWorld;
var
  a    : Byte;
  i,s : integer;


begin

  s := 0;

  for i := 1 to 37 do 
    s := s + i;

  writeln('1+2+....+37=',s);

  Readln(a);
end.          
Comments: