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

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