Вычислить сумму первых N чисел натурального ряда. Входные данные: Во входном потоке записано единственное целое число N (0 < N < = 100). Выходные данные: В выходной ноток вывести единственное целое число. Пример входного файла (input. txt) : 56 Пример выходного файла (output. txt) : 1596

program zz1;

var

n, i, s: integer; / / задаем переменные целого типа

f1, f2: text; / / задаем переменную текстового типа для работы с файлом

begin

assign (f1, 'input. txt'); / / связываем переменную текстового типа с файлом

reset (f1); / / открываем файл для чтения

assign (f2, 'output. txt');

rewrite (f2); / / открываем файл для записи

read (f1, n);

for i:=1 to n do

s: = s + i; / / получаем сумму

write (f2, s); / / выводим ответ

close (f1); / / закрываем файл input

close (f2); / / закрываем файл output

end.