Program Program1;vari,n,y:integer;beginwrite('Введите значение n: ');readln(n);i:=2;y:=1;while i<=2*n dobeginy:=y*i;inc(i,2);end;writeln('y=',y);end.
Program Program1;
var
i,n,y:integer;
begin
write('Введите значение n: ');
readln(n);
i:=2;
y:=1;
while i<=2*n do
begin
y:=y*i;
inc(i,2);
end;
writeln('y=',y);
end.