begin 
library A0, A1, A4, A5, A15;
   integer i, j;
   real x;

   open(10);
   writetext(10, {Hello _ World.{c}});

   open(20);

L:   i := read(20);
   write(10, format({-ndddddddddds}), i);

     x := read(20);
   write(10, format({-d.dddddddddº+ndc}), x);

   if  i = 0
   then 
      writetext(10, {Farewell, _ Cruel _ World.{c}})
   else 
      goto L;

   close(20);   close(10);
end 
|
111111111;   11111.11111;
-222222222; -2222.222222;
+333333333; +333.3333333;
444444444;   44.44444444;
-555555555; -5.555555555;
+666666666; +.6666666666;
123456789;   123456789º0;
111111111;   1.111111111º 1;
-222222222; -2.222222222º-1;
+333333333; +3.333333333º+1;
444444444;   4.444444444º 11;
-555555555; -5.555555555º-11;
+666666666; +6.666666666º+11;
-987654321; -987654321º0;
111111111;   1º 1;
-222222222; -2º-1;
+333333333; +3º+1;
444444444;   4º 11;
-555555555; -5º-11;
+666666666; +6º+11;
+987654321; -987654321º0;
111111111;   º 1;
-222222222; -º-2;
+333333333; +º+3;
444444444;   º 4;
-555555555; -º-5;
+666666666; +º+6;
0;           0º0;
|