PROGRAM Summation (Input,Output);

VAR
   Num, Sum : Integer;

BEGIN
   Writeln('Enter integer to sum to:');
   Readln(Num);
   Sum := (Num * (Num + 1)) DIV 2;
   Writeln('Sum of the first ',Num,' integers is ',Sum);
END.