Sos sos написать алгоритм "как сварить борщ" например: достать кастрюлю и т.

1.  вымыть, очистить и нарезать тонкой соломкой свеклу, морковь, картофель и лук. капусту тонко нашинковать, помидоры ошпарить кипятком, снять кожуру и нарезать кубиками. чеснок очистить и раздавить.2.   в кастрюле вскипятить воду, посолить, положить картофель и капусту и варить  на небольшом огне. в сковороде разогреть растительное масло, обжарить лук и морковь около 5 минут, затем добавить половину свеклы, уксус и сахар, перемешать и тушить 10 минут. 3.  оставшуюся свеклу сложить в миску, залить кипятком, добавить 1 ч. л. уксуса и дать настояться – получившийся свекольный сок может понадобится в конце приготовления для того, чтобы сделать цвет борща более насыщенным. 4.  в сковороду с овощами добавить помидоры, посолить и поперчить по вкусу, накрыть крышкой и тушить 20 минут. 5.  в кастрюлю с картофелем и капустой добавить тушеные овощи и лавровый лист. довести до кипения, снять пену, потом добавить в борщ чеснок. накрыть  крышкой и сразу снять с огня, после чего дать настояться 10 мин. 6.  добавить в суп процеженный свекольный сок и перемешать.

var

mas : array[1..15] of integer;

i: integer;

 

begin

 

for i: =1 to 15 do

begin

  mas[i] : = random(40)-20;

  if (mas[i] mod 2 = 1) then mas[i]: =mas[i]/2;

  if (mas[i] mod 2 = 0) then mas[i]: =mas[i]*3;

end;

 

end;