Составить программу нахождения суммы 10 четных чисел на паскале

Program P17; Var i, sum: integer; Begin Sum:=0; For i:=1 to 10 do Sum:=sum+i; Writeln('sum = ',sum); End.