Помогите написать программу в паскале y=2*x^2+b

Question

Помогите написать программу в паскале y=2*x^2+b

Answer 1

Var y,x,b:integer;
Begin
Read(x,b);
Y:=2*sqr(x)+b;
Write(y);
End.

Answer 2

Program OLk;
Var x,y,b:integer
Begin
Writelen('Введите 2 числа');
Read(x,b);
y:=2*sqr(x)+b;
Writeln(y);
end.