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

Question

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

Answer 1

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

Answer 2

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