Решить по информатике! найдите произведение первых десяти нечетных чисел. программа в паскале и, желательно, блок-схема. заранее .

Pascal:

Var
   A:byte;
   P:real;
Begin
P:=1;
For A:= 0 to 9 do
    P:=P*(A*2+1);
For A:= 0 to 8 do
    Write(A*2+1,'*');
WriteLn((A+1)*2+1,' = ',P)
End.