1. Написать программу, которая вычисляет сумму первых N четных положительных чисел.

1)

program numbers; // название программs
var
num,i,sum : integer; // Задаём переменные
begin;

assign(f1,Out.txt);
rewrite(f1); // Готовим файл к записи
i:=0;  // инициализируем их
sum := 0;
readln(num); // читаем значение
while i lt;= num do // создаём цикл, который выполняет действия пока i lt;= num
     begin
         sum := sum + i*2; // записываем в переменную sum значение её самой плюс значение чётного числа, а конкретно i*2
         i:=i+1;
     end;
writeln(f1,sum); // записываем

close(f1);
end.

2) https://bit.ly/2PCz6A8