какой язык то???? на тебе паскаль...

var

in,out: text;
i.j: integer;
mas:array [0..4,1..6] of integer;
begin
assign(in1,'in.txt');

reset(in1);
assign(out1,'out.txt');

rewrite(out1);

for i:=1 to 4 do

begin

for j:=1 to 6 do

read(mas[i,j]);

readln;

end;

close(in);

close(out);

end.

капец здесь отступы нельзя делать... фиг поймешь...