Найти сумму цифр, делящихся на 3 из промежутка [20;40]

Var i,sum: integer;Beginsum:=0;for i:=20 to 40 dobeginif i mod 3=0 thenbeginwriteln('Число: ',i);sum:=sum+i;end;end;writeln('Сумма чисел: ',sum);End.