Составит программу, которая вычисляет сумму первых n(ввести с клавиатуры) четных чисел
PascalABC

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var n:=ReadInteger('n=');
  Writeln('s=',2.Step(2).Take(n).Sum)
end.

Пример
n= 5
s=30