Требуется посчитать сумму целых чисел от 1 до n. входные данные в единственной строке входного файла input.txt записано единственное целое число n, не превышающее по абсолютной величине 104. выходные данные в единственную строку выходного файла output.txt нужно вывести одно целое число — сумму чисел от 1 до n.

Var f:text; i,n,sum:integer;s,t:string;
beginassign(f,'f:\input.txt');Reset(f);read(f,s);close(f);n:= strtoint(s);for i:=1 to n dosum:= sum + i;write(s:5, sum:6);assign(f,'f:\output.txt');ReWrite(f);write(f,sum);close(f);end.