1 {#
2
3 1 2 3
4 4 5 6
5
6 A
7 10 20 30 40
8
9 B
10 1 2
11 3 4
12
13 &
14
15 #! /bin/bash
16 ./stream2
17 cat stream2.out
18 rm stream2.out
19 exit 0
20
21 }
22 program stream2;
23 uses mtx09;
24 var
25 fi, fo: text;
26 m: mtx;
27 begin
28 assign(fi,'stream2.pas');
29 reset(fi);
30 assign(fo,'stream2.out');
31 rewrite(fo);
32 while mrd(m,fi) do mwr(m,fo);
33 close(fo);
34 append(fo);
35 mwr(m,fo);
36 close(fo)
37 end.
38 {
39 1 2 3
40 4 5 6
41
42 A
43 10 20 30 40
44
45 B
46 1 2
47 3 4
48
49 B
50 1 2
51 3 4
52
53 }