Помогите пж очень надо нужно записать программу на языке паскаль Найти значение функции 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.27x=1   y=3.54x=2   y=6.54x=3   y=11.54x=4   y=18.54x=5   y=27.54