(х-1) (х-3) (х-7) х… х (х-63) / (х-2) (х-4) (х-8) х…

Program dz2; uses crt; Var x,i,proizv1,proizv2: integer; BeginWrite ('Введите x, x='); Readln (x); i: =1; proizv1: =1; proizv2: =1; Repeat proizv1: =proizv1*(x-i); i: =i+2; Until i=63; i: =2; Repeat proizv2: =proizv2*(x-i); i: =i+2; Until i=64; If proizv2<>0 then Writeln ('Резульат=',proizv1/proizv2) else Writeln ('Деление на ноль! '); End.