TP3/shell/tests/fixtures/t121_widths.pas

program widths;
var c : char;
    b : boolean;
    s : string[10];
begin
  c := 'Z';
  b := true;
  s := 'hi';
  writeln(c:3, '|');
  writeln(b:6, '|');
  writeln(s:4, '|');
  writeln('x':3, '|');
  writeln('':3, '|')
end.