1
{
2
#! /bin/bash
3
./rwr1
4
cat test.txt
5
rm test.txt
6
exit 0
7
}
8
program
rwr1;
9
uses
mtx09;
10
var
11
f:
text
;
12
begin
13
rwr(
'test.txt'
,f);
14
mwr(
2.0
,f);
15
mwr(
1.0
/
3.0
,f);
16
end
.
17
{
18
2
19
20
0.333333
21
22
}