Pascal, цикл для, составить программу
Ввести целое число N. Найти сумму первых N чётных натуральных чисел.

var n,i,s:integer;beginwrite('n = ');readln(n);s:=0;for i:=1 to n do s:=s+2*i;writeln('s = ',s);end.Пример:n = 5s = 30