INPUT|
begin
   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;
|