Đáp án:uses crt;
var
i,N: integer;
S;T: real;
begin
T:=1;
write('nhap so N;='); readln(N);
If (N mod 2 = 0) then write('khong hop le')
else
begin
for i:=1 to N do
begin
S:=1;
if (i mod 2 <> 0) then S:=i*i
T:=T*S;
end;
writeln('tich cua cac so nguyen le la ',T);
end;
readln
end.
Giải thích các bước giải: