Программа на паскале 3/(1*2)*6/(2*4)*9/(3*6)*12/(4*8)*

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

begin
var x:=readinteger('x=');

var (a,b,c):=(3,1,2); var y:=0.0;

for var i:=1 to x do 

begin

y:=a/b*c;

a:=a+3; b:=b+1;

c:=c+2;

end;

Writeln('y=',y);

end.