|
|
1.1 root 1: program pdxtest( output );
2: var
3: x : real;
4: begin
5: x := 0.5;
6: x := 0.0;
7: writeln( '17.0/x ', 17.0/x );
8: end.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.