Полный ответ ! составьте программу,вычисляющую значение функции y=a^{2} +3a+1 , при вводимом значении a . (паскаль)

Var a,y:integer; 
begin 
writeln('Введите число a'); 
read(a); 
y:=sqr(a)+3*a+1; 
writeln('Значение y = ',y); 
end.

Var i,j:integer;
begin   
readln(i);
j=(i*i)+(i*3)+1;
writeln(j);
end.