5. Исправьте ошибки во фрагменте программы (напишите верный код) и определите, сколько раз выполняются команды цикла и что вычисляется: for i:=7 to 25 do;
read (a[i])
if a[i] mod 2 <> 0 then begin p:=p*a[i]; k:=k+1;
read (a[i])
if a[i] mod 2 <> 0 then begin p:=p*a[i]; k:=k+1;