Дано действительное число X. Составьте программу для вычисления значения функции, если F ( X ) = 2 × X2 + 5 , при X>0.
F ( X ) = 7×X2-5, в противном случае

var x,y:integer;begin;readln(x);if x>0 thenbegin;y:=2*sqr(x)+5;write(y);endelsebegin;y:=7*sqr(x)-5;write(y);end;end.