Напишите программу через 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.