Составить блок-схему произведения чисел от 20 до 50 кратных 5

Var i,p:integer;     beginp:=1;for i:= 20 to 50 doif(i mod 5 = 0) then p:=p*i;writeln('Произведение чисел кратных 5: 'p);end.