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

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

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