найдите сумму первых n четных натуральных чисел

У Вас не получится сумма n четных чисел. Скажем, если N=5, Вы найдете 2+4, а не 2+4+6+8+10, что требуется. Почему бы не написать S:=S+2N?

Ну да, так получается сумма натуральных, чётных, не превышающих n

Но сказано найти сумму n чисел!!!

Уже исправил))))

VarN:integer;S:real;BeginWrite('N = ');ReadLn(N);For N:= 1 to N do     S:=S+2*N;WriteLn('S = ',S)End.