produs.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program produs;
{p=1*3*5*..*(2*n-1)}
var p,n,i:integer;
begin
write('n= ');
readln(n);
p:=1;
for i:=1 to n do
  p:=p*(2*i-1);
writeln('p= ',p);
end.