Найти произведение всех натуральных нечетных чисел от 51 до 77

s:=1;
for i:=51 to 77 do
if odd(i) then
s:=s*i;

...
p:=1;
for i:=51 to 77 do
if odd(i) then p:=p*i;
...

uses crt;
const nmax=100;
type ts = 0..9;
     chislo=array[1..nmax] of ts;
 
procedure nul(var a:chislo);{обнуление числа-массива цифр}
var i:1..nmax;
begin
for i:=1 to nmax do
a[i]:=0;
end;
 
function kol(const a: chislo):word;{подсчет значащих цифр-длина числа}
var i:1..nmax;
begin
i:=nmax;
while(a[i]=0)and(i>1) do
i:=i-1;
kol:=i;
end;
 
procedure umn(var a,b,c:chislo);{умножение длинного на длинное}
var i,g,n,m:1..nmax;
    p:0..9;
    v:byte;
begin
nul(c);
m:=kol(a);
n:=kol(b);
for i:=1 to m do
 begin
  p:=0;
  for g:=1 to n do
   begin
    v:=a[i]*b[g]+p+c[i+g-1];{умножаем цифры}
    c[i+g-1]:=v mod 10;{остаток в ячейку}
    p:=v div 10;{перенос на память пошло}
   end;
  c[i+n]:=p;{последний перенос}
 end;
end;
 
procedure sum(a,b:chislo;var c:chislo);{сложение длинных}
var i,j,r:longint; p:0..9;
begin
nul(c);
p:=0;
for j:=1 to kol(a) do
 begin
  r:=b[j]+a[j]+p;
  p:=r div 10;
  c[j]:=r mod 10;
 end;
c[j+1]:=p;
end;
 
var a,b,c,d,q:chislo;
    i,f:integer;
begin
clrscr;
nul(b);{это число для сложения=2}
b[1]:=2;
nul(a);
a[1]:=1;a[2]:=5;{первый сомножитель=51 наоборот}
d:=a;{запомним его}
for i:=1 to 13 do{следующие 13 [53,55,57...77]}
 begin
  sum(d,b,c);{прибавляем 2}
  umn(a,c,q);{умножаем на очередное}
  a:=q;{запоминаем }
  d:=c;{новый множитель, на 2 больше}
 end;
for i:=kol(q) downto 1 do
write(q[i]);
readln
end.

uses crt;
var p: real; i: byte;
begin
 p:=1;
 for i:=51 to 77 do
 if odd(i) then p:=p*i;
 write ('произведение = ',p);
end.