BSD 3 development

[unix-history] / .ref-BSD-2 / doc / pascal / clash.p

program clash(output);
var
       i: integer;
       c: char;
begin
       i := 1;
       c := i;
       write(c, i)
end.