clash.p

来自「早期freebsd实现」· P 代码 · 共 10 行

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