Var n:real;begin readln(n);
n:=<span>5*n*n*n+4*n*n+n-1;</span> writeln(n:4:2);end.
<span>Program matrica;
Uses crt;
Var a:array [0..8 , 0..8] of integer;
sum1,sum2,i,j:integer;
begin
randomize;
sum1:=0;
sum2:=0
for i:=1 to 8 do
begin
Writeln;
for j:=1 to 8 do
begin
a[i,,j]:=random(10);
if i=j then sum1:=sum1+a[i,j];
if i+j=9 then sum2:=sum2+a[i,j];
Write(a[i,j], ' ');
end;
end;
writeln('Сумма чисел первой диагонали -',sum1,' </span>'Сумма чисел второй диагонали<span>' ,sum2,');
end.</span>
1) Камнеев перевозит свое шмотье на другой берег и бросает его туда, возвращается
2) Берет шмотье Бумагина (Законно) и делает то же самое.
3) Перевозит Бумагина
4) Забирает свое шмотье с того берега, кидает на первом
5) Перевозит Ножницына с баулом, выкидывает только баул
6) Повторяет 5,но выбрасывает и Ножницына
7) Забирает свои баулы и переправляется на другой берег