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

Question

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

Answer 1

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