var x,y:integer;beginwrite('vvedite x:');readln(x);Y:=(3-x)*(6-x)*(9-x)*(12-x)*(15-x)*(18-x)*(21-x);writeln(y);end.
Восопользуся Algo на паскале или Delghi 6.0