В ходе пошагового исполнения проекта за изменением значений
переменных x, a, s. Сделать проект так, чтобы в результате исполнения переменная s содержала суму x + x 2 + x 4 для введенного значения x.

Const n=15; 
var a:array[1..n] of integer;
i,s:integer; sr:real;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
 begin
 a[i]:=random(21);
 write(a[i]:3);
 end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
sr:=s/n;
writeln('Среднее арифметическое = ',sr:6:2);
writeln('Номера элементов, больших среднего арифметического:');
for i:=1 to n do
 if a[i]>sr then write(i:3);
writeln;
end.

Пример:
Массив:
  9 19 14 8 7 10 5 10 6 14 15 2 11 17 13
Среднее арифметическое = 10.67
Номера элементов, больших среднего арифметического:
  2 3 10 11 13 14 15

Алгоритм приготовления гречневой каши обыкновенной. )

1. Поставить кастрюлю на стол

2. поставить стакан на стол

3. Поставить упаковку с гречкой на стол

4. поставить графин с водой на стол

5. насыпать полный стакан гречки

6. пересыпать гечку в кастрюлю

7. выполнить 2 раза

  7.1 налить полный стакан воды

  7.2. перелить стакан воды в кастрюлю

8. зажечь огонь на плите

9. поставить кастрюлю с гречкой на огонь

10. Выполнять пока не закипит

   10.1. Ждать

11. Посолить

12. Накрыть крышкой кастрюлю

13. Пока не мин

  13.1. Ждать

14. Выключить огонь.