Помогите пж очень надо нужно записать программу на языке паскаль Найти значение функции y=2a+x² где x принимает значение 1,2,3,4,5. Найти 5 значений у

Var
  x:integer;
  y,a:real;
begin
  Write(Введите значение а: ); Readln(a);
  for x:=1 to 5 do Writeln(x=,x,   y=,2*a+sqr(x))
end.

Тестовое решение:
Введите значение а: 1.27
x=1   y=3.54
x=2   y=6.54
x=3   y=11.54
x=4   y=18.54
x=5   y=27.54