Написать программу, которая вычисляет сумму всех четных чисел в диапазоне от 1 до 16​

var

   i, n, sum: integer;

begin

   writeln('Введите n');

   readln(n);

   ///Тут возможны два решения, с циклом и без. Вот первое:

   sum := 0;

   for i := 1 to n do

       if i mod 2 = 0 then

           sum := sum + i;

   writeln(sum);

   ///Второе, более быстрое, использующее формулу суммы первых членов арифметической прогрессии:

   if n mod 2 = 1 then n := n - 1;

   writeln(((2 + n) div 2) * n div 2);

end.