Сделать в паскале y=2*x^2+4

program a;

var y, x:integer;

begin

readln (x);

y:=2*sqr(x)+4;

writeln(y);

end.