Составить программу, нахождения произведения чисел делящихся на 7 в промежутке от а до в. (а и в запрашиваются с клавиатуры).

VarA,B:integer;P:real;BeginP:=1;Write('A = ');ReadLn(A);Write('B = ');ReadLn(B);For B:= A to B do    if B mod 7 = 0 then P:=P*B;WriteLn('P = ',P);End.