Подскажите,пожалуйста, как сделать это задание?

[Владимир28]

http://www.programmersforum.ru/attac...1&d=1515844348

[digitalis]

И что, это трудно переписать почти 1:1, только без квадратиков ?

begin
  n := 5 ;
  y := 1 ;
  for i := 1 to n do
      y := y * (2*i - 1) ;
  writeln (y) ;
end.