Написать программу для вычислите значение выражения (a+4b)(a-3b)+a2 при a=2 и b=3.

Var
   a,b:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
WriteLn((a*4*b)*(a-3*b)+a*a)
End.