Сумма первых n четных чисел
Не очень понял вопроса... Но вот... 9 класс *Название* begin readln(n) for a:=1 to *любое число* do if a mod 2 = 0 then sum:=sum+a; writeln(sum); end.