Розв’язання

Напишіть обробник події OnClick кнопки: procedure TForm1.Button1Click(Sender: TObject); var buka, baka: integer; begin buka:=StrToInt(Edit1.Text); baka:=StrToInt(Edit2.Text); if buka=2*baka then ShowMessage('Бука вдарить Бяку') else if baka=2*buka then ShowMessage('Бяка покаже Буці язика') else ShowMessage('Перемогла дружба'); end;

Задача 2. Іван - дурак ішов по дорозі і бачить: стоїть стовп, а на ньому три написи: наліво підеш – ще дурнішим станеш, направо підеш – до МММ попадеш, а прямо підеш – хтозна куди попадеш. Напишіть програму, яка за даним напрямком (наліво, направо або прямо) вказує, що станеться з Іваном.

Вхідні дані. Напрямок, за яким піде Іван, у вигляді слів «наліво», «направо», «прямо» вводиться з клавіатури.

Вихідні дані. Подальша доля Івана виводиться на екран.