For the procedure given below, you enter 3 in the sa1 text box and 8 in the sa2 text box and what will be seen in the result text box if the button is clicked? procedure TForm1.tusClick (Sender: TObject); var aa, bb: Integer; begin bb: = 0: aa: = strtoint (sa1.text): while aa <(strtoint (sa2.text)) do beqn aa: = aa + 1; bb: = bb + aa; end: result Text = Inttostr (bb); end

a) 15 b) The program fails. c) 30 d) 22 e) 19