Склавиатуры вводятся натуральные числа a и n. найти сумму n четных чисел, начиная с a.

var

 A, N, i, s: Integer;

begin

 Write ('Начальное число = ');

 ReadLn (A);

 Write ('Количество чисел = ');

 ReadLn (N);

 s := 0;   // здесь будем накапливать сумму

 for i := 0 to N - 1 do begin   // цикл по количеству чисел

   if (A + i) mod 2 = 0 then    // если число четное

     s := s + A + i;                    // добавление этого числа к сумме

 end;

 WriteLn ('Сумма четных чисел = ', s);

end.