program SumOfEvenNumbers;

var
n, i, sum, count: integer;

begin
sum := 0;

write('Enter the value of n: ');
readln(n);

count := 0;
i := 0;
while count < n do
begin
if i mod 2 = 0 then
begin
sum := sum + i;
count := count + 1;
end;
i := i + 1;
end;

writeln('Sum of the first ', n, ' positive even numbers is: ', sum);
end.