program SumOfEvenNumbers;
var
n, i, sum, num: Integer;
begin
sum := 0;
Write('Enter the value of n: ');
Readln(n);
num := 1;
i := 1;
while i <= n do
begin
if num mod 2 = 0 then
begin
sum := sum + num;
Inc(i);
end;
Inc(num);
end;
WriteLn('Sum of the first ', n, ' even numbers is ', sum);
end.

Программа запрашивает у пользователя значение n, затем вычисляет сумму первых n четных чисел и выводит результат на экран.