Question

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

Answer 1

Var a: double;
begin
  readln(a);
  writeln('y=', sqr(a) + 3 * a + 1;
end.