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

Var
    i, s: integer;

begin
    s := 0;
    for i := 10 to 99 do
        if i mod 2 = 0 then
            s := s + i;
    writeln(s);
end.