найти сумму четных двухзначных чисел цикл с предусловием

procedure summa(s, num: integer);

begin

   s:= s + num;

end;

var i, sum: integer;

begin

   sum:= 0;

   for i:= 10 to 99 do if i mod 2 = 0 then summa(sum, i);

   write(sum);

end.