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