Program Summa;

Uses Crt;

var n,s,i:longint;

begin

     clrscr;

      write('Введите N: ');

      readln(n);

      s:=0;

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

      writeln('Сумма всех положительных чисел меньших чем N:',s);       

      readkey;

end.