{* Сумма первых n целых положительных чисел *}

Unit CIKL_2;
Interface
Implementation
Begin
 writeln('Вывод суммы первых n целых положительных чисел');
End.

Program cikl_2;

Uses cikl_2.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  n : integer;
  i : integer;
  s : integer;
Begin
  writeln('Vvedite n');
  readln(n);
  s := 0;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
    s := s + i;
  writeln(s);
  readkey; {* Ждем нажатия любой клавиши *}
End.