Помогите пожалуйста, информатика

var sum,i:integer;beginfor i:=20 to 100 do if i mod 6 = 0 then begin writeln(i);sum:= sum + i;end;writeln('sum =', sum);end.