С клавиатуры вводятся естественные числа A и N. Отыскать сумму N

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.