Составить программу для вычисления F=2*a*a+|6-a|+293a
Var a:real;
Begin
Write('a=') ;read(a) ;
Write('f=', 2*a*a+abs(6-a)+293*a) ;
End.