Борщ.
Состав - бульон (свинина+говядина) , капуста, картофель, морковь, свекла, репчатый лук, помидоры или томатная паста.
1. Варим бульон - 1,5-2часа. 2. Шинкуем капусту. 3. Чистим овощи. 4.Трем на терке морковь и свеклу. 5. Режем кубиками лук. 6.Лук обжариваем на раст. масле с томатами. 7. Добавляем свеклу и морковь, все тушится. 8. Режем соломкой картофель. 9. Процеживаем готовый бульон. 10. В бульоне отвариваем до полуготовности картофель, добавляем капусту. 11. Последний этап - заправляем зажаркой, солим. Борщ готов.
1.
var a:array [1..15] of integer;
i:integer;
begin
for i:=1 to 15 do a[i]:=i*2;
write (a)
end.
2.
var a:array [1..10] of integer;
i:integer;
begin
writeln ('Введите 10 элементов массива через пробел.Потом нажмите Enter.');
for i:=1 to 10 do read(a[i]);
write ('Элементы с нечётными индексами: ');
for i:=1 to 10 do if i mod 2 <> 0 then write (a[i],' ');
writeln;
write ('Элементы с чётными индексами: ');
for i:=1 to 10 do if i mod 2 = 0 then write (a[i],' ')
end.
987987789 (если что-то не так извините это просто тоже пример)