4. Створіть процедуру опрацювання події натиснення кнопки Визначити. У вікні редактора коду введіть програмний код (мал. 24. 7). Зверніть увагуна структуру команди розгалуження. procedure TForml. Button1click (Sender: TObject);var t:integer;begint:= strToint (Edit1. Text);if t<0 then Edit2. Text:= "Вода перебуває у твердому стані else if t>100 then Edit2. Text:= 'Вода перебуває у газоподібному станіelse Edit2. Text := 'Вода перебуває в рідкому стані;end; посчитайте пожалуста