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

это поправка к если ввести 1

Вот теперь все хорошо, но есть одна проблема, я показал учительнице, она сказала, что в выводе данных должны записываться числа, которые подходят под условие.Тоесть не просто ответ в файле out, а еще сами числа, которые суммируются

  var a,b,sum,i:int64;  begin   assign (input,'input.txt');assign (output,'out.txt');   reset (input);rewrite (output);     readln(a);  b:=2;  i:=1;  repeat  begin  sum:=sum+b;  b:=b+2;  i:=i+1;  end;  until i=a+1;   writeln(sum);    end.