{

PRT test 1839: Write with invalid fields

    Write with zero field.
    ISO 7185 6.9.3

}

program iso7185prt1839(output);

var i: integer;

begin

   i := 1;
   writeln(i:0);
   writeln('deviation: zero width fields allowed');

end.
