помогите пожалуйста.

[chargosman]

http://imageshost.ru/links/160379653...d4be53b69fc4c0

[Sazary]

В задании не присутствуют сложные формулы. Поэтому могли бы и перепечатать.
И почитайте правила. Особенно про названия тем.

uses crt;
var
A,B,sum : longint;

begin
clrscr;
write('A= ');
readln(A);
write('B= ');
readln(B);
sum := 0;
while A<=B do
 begin
 if A mod 7 = 5 then
   begin
   sum := sum + A*A*A;
   {writeln(A);  }
   end;
 inc(A);
 end;
writeln('Summ= ',sum);
readln;
end.

[chargosman]

спасибо большое))