Ответ:

Объяснение:

program mod7;

var

i:integer;

p:int64;

begin

p:=1;

for i:=1 to 50 do

if i mod 7=0 then p:=p*i;

writeln('Цикл  for. p=',p);

///////////////////////////

p:=1; i:=1;

while i<=50 do begin

if i mod 7=0 then p:=p*i;

i:=i+1;

end;

writeln('Цикл while. p=',p);

/////////////////////////////

i:=1;p:=1;

repeat

 if i mod 7=0 then p:=p*i;

 i:=i+1;

until i>50;

writeln('Цикл repeat. p=',p);

readln;

end.