Вычислить и вывести на экран сумму всех двухзначных чисел, кратных 5

Program test;

var
    sum, i: longint;

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