{$codepage utf8} VAR p01:array of byte; p02:array of word; p03:array of longword; p04:array of qword; i:byte; n:byte; BEGIN n:=5; SetLength(p01,n); SetLength(p02,n); SetLength(p03,n); SetLength(p04,n); FillByte(p01[0],n,25); FillWord(p02[0],n,30); FillDWord(p03[0],n,35); FillQWord(p04[0],n,40); Writeln(' p01 p02 p03 p04'); for i:=0 to n-1 do Writeln(i:2,p01[i]:4,p02[i]:4,p03[i]:4,p04[i]:4); END.