n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/DS0027.pas

21 строка302 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

const n=1000;

var a:array of pinteger;
    p:pinteger;
    s:string;
begin
  SetLength(a,n);
  for var i:=0 to n-1 do begin
    new(a[i]);
    a[i]^:=i;
  end;
  while true do begin
    s:='';
    for var i:=0 to n-1 do begin
      s:=S+a[i]^.tostring;
      writeln(a[i]^);
    end;
  end;
    

end.