Написать программу, которая вычисляет сумму первых n целых положительных чётных чисел. Паскаль

Предыдущий
вопрос Следующий
вопрос

program SumOfEvenNumbers;

va
n, i, sum, count: integer;

begi
sum := 0;

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

count := 0
i := 0
while count < n d
begi
if i mod 2 = 0 the
begi
sum := sum + i
count := count + 1
end
i := i + 1
end;

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