[unix-history] / usr / src / usr.bin / pascal / USD.doc / clash.p

program clash(output);
var
	i: integer;
	c: char;
begin
	i := 1;
	c := i;
	write(c, i)
end.
Commit	Line	Data
8e468c54 KB	1	program clash(output);
	2	var
	3	i: integer;
	4	c: char;
	5	begin
	6	i := 1;
	7	c := i;
	8	write(c, i)
	9	end.