На форме размещаешь три Edit. Это такое текстовое поле. Размещаешь один Label. Размещаешь кнопку Button. Нажимаешь два раза на Button, вылезает код программы. Между begin и end пишешь это:
Если вынуть 98 конфет, то будут конфеты всех 3 видов. Пусть у нас по n конфет каждого вида. Тогда может так получиться, что мы вынем 2n конфет, и они будут только 2 видов. И только, вынув (2n+1)-ю конфету, мы получим все три. 2n+1 = 98 2n = 97. Значит, конфет одного и другого вида по [97/2] = 48, а конфет третьего вида 49. Пусть ирисок и леденцов по 48, а шоколадных 49. Вынув 48 ирисок и 48 леденцов (96 конфет), мы получим 2 вида. Вынув 48 ирисок и 49 шоколадных (97), мы получим 2 вида. Вынув 48 леденцов и 49 шоколадных (97), мы получим 2 вида. И только вынув 98-ую (в 1 случае 97 и 98), мы получим 3 вида. ответ: всего конфет было 48 + 48 + 49 = 145.
Размещаешь один Label.
Размещаешь кнопку Button.
Нажимаешь два раза на Button, вылезает код программы. Между begin и end пишешь это:
Label1.Caption:=inttostr(strtoint(Edit1.Text)*strtoint(Edit2.Text)+(strtoint(Edit3.Text)*sqr(strtoint(Edit2.Text)))/2);
В Edit1 вводишь V, в Edit2 вводишь T, в Edit3 вводишь А. Нажимаешь кнопку. В Label выводится S.