На 6 строке выдает нельзя считывать данные этого типа program pro; var i,a,b,c,d: integer; m: of integer; begin; readln(setlength(m,i,a,b,c,d)); for i: =0 to setlength(m,i,a,b,c,d) do for a: =0 to setlength(m,i,a,b,c,d) do for b: =0 to setlength(m,i,a,b,c,d) do for c: =0 to setlength(m,i,a,b,c,d) do for d: =0 to setlength(m,i,a,b,c,d) do readln(m[i,a,b,c,d]); writeln(m); end.