Question

Составьте программу Pascal для решения квадратичной функции
y= x²-2x+12

Answer 1

var

 x:real;

begin

 read(x);

 write('y = ', x*x - 2*x + 12);

end.