Умоляю хелп человек использует разветвляющие алгоритмы в примеры !

1. завтрак

открыть холодильник

если там есть яйца

  то взять яйца и пойти готовить омлет

  иначе проверить кошелёк

  если там больше ста рублей

    то пойти в магазин

    иначе лечь спать

2. что одеть

посмотреть прогноз погоды

если температура больше +15

  то не одевать шапку

  иначе одеть шапку

3. выбор продуктов

взять продукт

посмотреть срок годности

если срок не истёк

  то положить продукт в корзину

  иначе поставить обратно на полку

Private sub command1_click() form1.shape1.visible = true form1.shape2.visible = true form1.shape3.visible = true form1.shape4.visible = true form1.shape5.visible = falce form1.shape6.visible = falce form1.shape7.visible = falce form1.shape8.visible = falce end sub private sub command2_click() form1.shape5.visible = true form1.shape6.visible = true form1.shape7.visible = true form1.shape8.visible = true form1.shape1.visible = falce form1.shape2.visible = falce form1.shape3.visible = falce form1.shape4.visible = falce end sub

Const nm = 20; var x: array[1..nm,1..nm] of integer; i,j,n,m,k,p: integer; b: array[1..nm] of integer; beginwrite('введите строки n и столбцы m '); read(n,m); p: =1; for i: =1 to n do beginfor j: =1 to m do beginx[i,j]: = random(30)-5; write(x[i,j]: 4); end; writeln; end; writeln; for j: =1 to m do beginfor i: =1 to n do beginif x[i,j] > 0 then beginp: = p * x[i,j]; k: = k+1; endelse  beginp: = 1; k: =0; end; end; if k = n then b[j]: =p; p: = 1; k: =0; end; for i: =1 to m dowrite(i: 2,b[i]: 9); end.