Question

Паскаль. Даю максимальный балл

Answer 1

var

x:integer;

begin

readln(x);

writeln(2*x*x-3*(x*x+1)*(x*x+1));

end.