72 Задача 9: фрагмент программы p:=1; b:=1; read(a); while a0 do begin for i:=b to a do p:=p*i; write('факториал ', a, ' = ', p, ' '); b:=a+1; read(a) end; p:=1; b:=1; read(a); while a0 do begin for i:=b to a do p:=p*i; write('факториал ', a, ' = ',
{}