{$codepage UTF8} VAR A01: Array of integer; i:byte; BEGIN SetLength(A01,10); for i:=0 to 9 do A01[i]:=i; for i:=0 to 9 do Writeln(A01[i]); SetLength(A01,0) END.