Определить смысл данного фрагмента алгоритма

Program zadanie13;
var i,a:integer; p:real;
Begin
i:=1;
p:=1;
begin
while i<=10 do writeln (a);
if a mod 2=1 do p:=p*a;
end;
i:=i+1;
end.

if a mod 2=1 then p:=p*a;

Program zadanie13;
 
var i, a: integer; p: real;
 
begin
  i:=1; //i:=1;
  p:=1; //p:=1;
  while i <= 10 do //нц пока i<=10
    begin
      write('a = '); //***печать: "a = "
      readln(a); //ввод а
      if a mod 2 = 1 then p := p * a; //если a mod 2=1 то p:=p*a; все
      i:=i+1 //i:=i+1;
    end; //кц
  writeln('p = ', p); //***печать результата
  readln //***ожидание нажатия <Enter> перед закрытием программы
end.

Program zadanie13;
var i,a:integer; p:real;
Begin
i:=1;
p:=1;
begin
{while i<=10 do}
for i:=1 to 10 do readln (a);
if a mod 2=1 then p:=p*a;
end; writeln(p);
i:=i+1;
end.

program zadanie13;
var
  i, a: integer; p: real;
begin
  p := 1;
  {while i<=10 do}
  for i := 1 to 10 do 
  begin
    readln(a);
    if a mod 2 = 1 then p := p * a;
  end; 
  writeln(p);
end.

    if odd(a) then p := p * a;

Program zadanie13;
var i,a:integer; p:real;
Begin
i:=1;
p:=1;
for i:=1 to 10 do begin
write ('a= ');
readln (a);
if a mod 2=1 then p:=p*a;
end;
i:=i+1;
writeln('p= ',p);
readln;
end.

Program zadanie13;
uses crt;
var i,a:integer; p:real;
Begin
p:=1;
for i:=1 to 10 do begin
write ('a= ');
readln (a);
if a mod 2=1 then p:=p*a;
end;
i:=i+1;
writeln('i= ',i);
readln;
end.

Program zadanie13;
uses crt;
var i, a: integer; p: real;
Begin
  p:=1; //произведение пока ещё = 1
  for i := 1 to 10 do //цикл от i = 1 до i = 10
    begin начало цикла
      write ('a= '); //печать, чтобы было ясно, что вводить
      readln (a); ввод одного из десяти a
      if a mod 2 = 1 then p := p * a //если a нечётное,то домножаем p на a
    end; //конец цикла
  //i:=i+1; //говорил же Вам ermolay, что эта строка лишняя!
  //writeln('i= ',i); //какого ляда выводите счётчик? Для чего?
  writeln('p = ', p); //вот что надо выводить... Произведение нечётных, блин...
  readln
end.