Напишите программу через for, пожалуйста.

Найти в дипазоне [40;70] сумму чисел, которые делятся на 5 с остатком 1

program qq;var a,b,sum:integer;BEGINsum:=0;for a:=40 to 70 do beginif a mod 5=1 then sum:=sum+a;end;writeln(sum);END.