Составить программу вычисляющую значение функции у=a*a +3a+1 при вводимом.значении a на паскале

Program chisla25;
uses crt;
var
a,y:integer;
begin
writeln('введите число');
readln(a);
y:=a*3;
a:=a*a;
y:=a+y;
y:=y+1;
readln(y);
end.