[Decoding]

У меня все нормально… Приведи код полностью…

Код:

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  Num = array of integer;
 
var
  n1, n2, n3: Num;
  i: integer;
 
procedure Recurs(ClonN1:num; i: integer);
begin
   ClonN1[i] := i;
   if i < High( ClonN1 ) then
      Recurs( ClonN1, i+1 );
end;
 
begin
   SetLength( n1, 10 );
   SetLength( n2, 10 );
   SetLength( n3, 10 );
   Recurs( n1, 0 );
   for i := Low( n1 ) to High( n1 ) do
      Write( IntToStr( n1[i] ), '  ' );
   Writeln;
   for i := Low( n2 ) to High( n2 ) do
      Write( IntToStr( n2[i] ), '  ' );
   Writeln;
   for i := Low( n3 ) to High( n3 ) do
      Write( IntToStr( n3[i] ), '  ' );
   Readln;
end.