Sum of evens

Pascal Loops

evens up to n

Flowchart (ISO 5807)

Source code

function sumEven(n: integer): integer;
var i, s: integer;
begin
  s := 0;
  for i := 1 to n do
    if i mod 2 = 0 then
      s := s + i;
  sumEven := s;
end;