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

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

Var n, k: integer; t, v, p : real; begin       k: =0;       for n : = 100 to 999 do       begin               p: = n div 100;               v : = (n div 10)mod 10;               t : = n mod 10;               if (v = 2*p) and (t = 2*v) then                       k: =k+1    ;           end;           print(k); end.      

Program llllllllll; var a, b : string; c: integer; begin       writeln('введите имя');       readln(a);       writeln('введите фамилию');       readln(b);       c: =10;       while c> 0 do       begin               write(a,' ');               writeln(b);               c: =c-1;       end; end.