Составить программу для вычисления 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.