Найти сумму всех положительных чисел, не превышающих данного натурального числа n. программа на паскале.

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. 

   

Объем, скорость считывания, тактовая частота.

1)См рисунок,он из интернета,ибо я могу нарисовать,но будет криво(
2) путь от диска C:/ до файла. К примеру, файл информатика.docx в папке "Школа" на рабочем столе будет иметь такой путь: C:Users\%username%DesktopШколаинформатика.docx. Это на виндовс
3)
 C:Участники
 C:КонференцияУчастники
 C:КонференцияРегионыУчастники
 C:КонференцияРегионыСпискиУчастники

《calculi》 т.е. Калькулятор.