Составьте программу вычисления значения функции y=-0,78*x*x+10.

program func;var x,y: real;beginwriteln ('Введите x');readln (x);y:=-0.78*x*x+10;writeln ('y=',y);end.