Вычислить сумму первых N чётных положительных чисел - Pascal ABC

Формулировка задачи:

Написать программу, которая вычисляет сумму первых N четных положительных чисел. Исходные данные (N – количество чисел) вводятся из файла Input.txt. Результаты работы программы добавляются в файл Out.txt. Вот как они должны выводиться в файл out

Решение задачи: «Вычислить сумму первых N чётных положительных чисел»

Листинг программы

var n,i,sum:int64;
    f:text;
begin
assign (f,'input.txt');
reset (f);
read(f,n);
close(f);
assign (f,'out.txt');
rewrite (f);
writeln(f,'Сумма первых ',n,' четных положительных чисел:');
sum:=0;
for i:=1 to n do
 begin
  sum:=sum+2*i;
  write(f,2*i,' ');
 end;
writeln(f);
writeln(f,'Сумма=',sum);
close(f)
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal ABC. Задача программы - вычислить сумму первых N четных положительных чисел.

Переменные:
- n - число, для которого нужно вычислить сумму (вводится с клавиатуры);
- i - счётчик, который увеличивается на единицу на каждой итерации цикла;
- sum - переменная, в которую записывается сумма четных положительных чисел.
- f - файл, в который записывается результат.
Сначала считывается введенное с клавиатуры число N.
Затем открывается файл input.txt для чтения.
Числа считываются из файла и записываются в переменную sum.
После чтения файла он закрывается.
Открывается файл out.txt для записи.
В файл записывается заголовок Сумма первых N четных положительных чисел:.
Затем в файл записываются числа, которые составляют сумму.
После записи всех чисел в файл он закрывается.
Выводится сообщение Сумма=ххх, где ххх - это значение переменной sum.