Составить блок-схему произведения чисел от 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.