begin comment: FILE_5 with real numbers writing; integer n; integer i, j ; real array a[1:100,1:100]; n := 10; for i := 1 step 1 until n do begin for j := 1 step 1 until n do begin a[i,j] := 1.1*i + j ; outreal (5, a[i,j]) end; outstring (5,"\n") end end