Hello, I have a school subject Mathematica. I have this code. Could I ask, how do I make the numbers? The numbers will be written into the frame A.

Thank you for the advice :)

DynamicModule[{a = 0, b = 0}, 
Deploy[Style[
    Panel[Grid[
      Transpose[{{Style["A", Red], Style["B", Red], 
         "here is their sum", "their difference", 
         "their product"}, {InputField[Dynamic[a], Number], 
         InputField[Dynamic[b], Number], 
         InputField[Dynamic[a + b], Enabled -> False], 
         InputField[Dynamic[a - b], Enabled -> False], 
         InputField[Dynamic[a b], Enabled -> False]}}], 
      Alignment -> Right], ImageMargins -> 10], 
    DefaultOptions -> {InputField -> {ContinuousAction -> True, 
        FieldSize -> {{5, 30}, {1, Infinity}}}}]]

  Row@Prepend[
    Table[With[{b = b}, 
      Button[b, predpisFce = predpisFce <> b, Alignment -> Center, 
       Appearance -> "Pressed"]], {b, {"1", "2", "3", "4", "5", "6", 
       "7", "8", "9", "0"}}], 
    Style["Cisla             ", Italic, Bold]]
]

Attachments: