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

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

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