1. Вымыть, очистить и нарезать тонкой соломкой свеклу, морковь, картофель и лук. Капусту тонко нашинковать, помидоры ошпарить кипятком, снять кожуру и нарезать кубиками. Чеснок очистить и раздавить. 2. В кастрюле вскипятить воду, посолить, положить картофель и капусту и варить на небольшом огне. В сковороде разогреть растительное масло, обжарить лук и морковь около 5 минут, затем добавить половину свеклы, уксус и сахар, перемешать и тушить 10 минут. 3. Оставшуюся свеклу сложить в миску, залить кипятком, добавить 1 ч. л. уксуса и дать настояться – получившийся свекольный сок может понадобится в конце приготовления для того, чтобы сделать цвет борща более насыщенным.4. В сковороду с овощами добавить помидоры, посолить и поперчить по вкусу, накрыть крышкой и тушить 20 минут.5. В кастрюлю с картофелем и капустой добавить тушеные овощи и лавровый лист. Довести до кипения, снять пену, потом добавить в борщ чеснок. Накрыть крышкой и сразу снять с огня, после чего дать настояться 10 мин.6. Добавить в суп процеженный свекольный сок и перемешать.
program sorting;
const
N = 10;
var
v: array[1..N] of integer;
d: integer;
i, t: integer;
k: boolean;
begin
randomize;
write('ДО сортировки: ');
for i := 1 to N do
begin
readln(v[i])
write(v[i]:6);
end;
}
d := N div 2;
while(d > 0) do
begin
k := true;
while k do
begin
k := false;
i := 1;
for i := 1 to N - d do
begin
if(v[i] > v[i + d]) then
begin
t := v[i];
v[i] := v[i + d];
v[i + d] := t;
k := true;
end;
end;
end;
d := d div 2;
end;
writeln;
write('ПОСЛЕ сортировки: ');
for i := 1 to N do
write(v[i]:6);
writeln;
end.