<em>var a, b, c, i, n :integer;</em> <em> s :array [1..10000] of longint;</em> <em>begin</em> <em> read (n);</em> <em> for i:=1 to n do</em> <em> s[i]:=i*i*i;</em> <em> s[3]:=n*n;</em> <em> s[5]:=0;</em> <em> s[8]:=0;</em> <em> for i:=6 to n do</em> <em> s[i-1]:=s[i];</em> <em> for i:=8 to n do</em> <em> s[i-1]:=s[i];</em> <em> for i:=1 to n-2 do</em> <em> write (s[i], ' ');</em> <span><em>end.</em></span>
Procedure Delete(x:Integer;n:integer); var j : Integer; Begin<span> {сдвиг индекса элементов на один влево}</span> for j:=x to n do begin F[j]:= F[j+1]; end; F[n]:=0;{последний элемент равен 0} End;