assign.p

早期freebsd实现

program assign (input, output);

var a : array [1..100] of char;
begin
    a := 'blah';
    write(output, a);
end.