Он опоздал на урок-исстинное
Он не делал задания-ложное
ПЖ отметь как лучший
Var i,p,n:integer;
begin
readln(i);p:=1;
for n:=1 to i do
p:=p*n^2/(n^2+2n+3);
writeln(p);
не уверен но должно работать...
Var
f:boolean;
n:integer;
begin
f:=(n mod 2=0) and (n>=10) and (n<=99);
write (f);
end.