Составьте пирамиду понятия: салат, гуляш, компот, салат из овощей, суп гороховый, шницель, сок, щи, оливье, первое блюдо, второе блюдо, котлета, напиток, кисель, пельмени, кофе, борщ, обеденное меню. ,

1) салат: слат из овощей, оливье.

2) первое блюдо: суп гороховый, борщ, щи.

3) второе блюдо: гуляш, шницель, котлета, пельмени.

4) напиток: компот, сок, кисель, кофе.

и всё это обеденное меню. 

Const e=0.001; var x,xn,h,an,s,f,y: real; n,k,i: integer; begin n: =10; h: =(1-0.1)/(n-1); x: =0.1-h; for i: =1 to n do   begin   x: =x+h; an: =1;   xn: =1; f: =1;   k: =0;   s: =1;   while an> e do   begin   xn: =xn*x*x;   k: =k+1;   f: =f*k;   an: =(2*k+1)*xn/f;   s: =s+an;   end;   y: =(1+2*x*x)*exp(x*x);   writeln('x = ',x: 4: 1,'   s = ',s: 6: 4,'   y = ',y: 6: 4);   end; end. результат: x = 0.1   s = 1.0303   y = 1.0303x = 0.2   s = 1.1241   y = 1.1241x = 0.3   s = 1.2911   y = 1.2911x = 0.4   s = 1.5490   y = 1.5490x = 0.5   s = 1.9260   y = 1.9260x = 0.6   s = 2.4653   y = 2.4653x = 0.7   s = 3.2320   y = 3.2320x = 0.8   s = 4.3240   y = 4.3240x = 0.9   s = 5.8894   y = 5.8895x = 1.0   s = 8.1548   y = 8.1548

Консольное приложение: const n=4; var a: array[1..n,1..n] of real; k,i,j: integer; begin writeln('1: '); for i: =1 to n do   begin   for j: =1 to n do   begin   a[i,j]: =10*random;   write(a[i,j]: 4: 1);   end;   writeln;   end; write('k = '); readln(k); writeln('2: '); for j: =1 to n do a[k,j]: =a[k,j]/a[k,k]; for i: =1 to n do   begin   for j: =1 to n do write(a[i,j]: 4: 1);   writeln;   end; end. пример:   1:   1.4 0.8 5.3 9.66.7 2.4 5.1 4.01.9 6.6 0.9 4.04.1 6.1 2.6 0.9k = 22: 1.4 0.8 5.3 9.62.8 1.0 5.1 4.01.9 6.6 0.9 4.04.1 6.1 2.6 0.9