Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  1+2+3
Language: PASCAL
Code:
          PROGRAM Summe;
 
VAR i,n,sum: INTEGER;

BEGIN
     WRITE('Gib eine Zahl ein ');

READLN(n);
     sum:= 0;
      FOR i:=1 TO n DO
BEGIN
     sum:= sum + i;
END;
     WRITE('Die Summe betraegt ');
     WRITELN(sum);
READLN;
END.

          
Comments: