Надо нужно записать программу на языке паскаль найти значение функции 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