Дано натуральное n.вычислить y=1*3*(2n-1).программа в паскаль абс.

Var n,k,i:integer;
y:longint;
begin
readln(n);
k:=1;
y:=1;
for i:=1 to n+1 do begin
y:=y*k;
k:=k+2;
end;
writeln(y);
end.