PASCAL арифметический цикл

[чебурекер]

найти сумму кубов всех целых чисел, дающих приделении на 7 в остатке 5, из отрезка [A,B]. помогите решить пожалуйста и если не трудно помогите с блок схемой.

[_-Re@l-_]

Как-то так:

Var
     A,B:Integer;
     I,S:Integer;
Begin
        Write('A = ');
        Readln(A);
        Write('B = ');
        Readln(B);
        S:=0;
        For I:=A To B Do
        If I mod 7 = 5 Then S:=S+I*I*I;
        Write('S = ',S);
        Readln;
End.

[чебурекер]

спасибо ,а блоксхему незнаешь как сделать?

[Alter]