На 6 строке выдает нельзя считывать данные этого типа Program Pro; var i,a,b,c,d:integer; M:array[,,,,] 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.

Слушай ты задаешь ппограмму с помощью команды integer, а она в свое время работает толлько для натуральных чисел поэтому и выдает ошибку. для того чтобы исправить замени ее на real должно получиться