[unix-history] / .ref-BSD-4_3_Net_2 / usr / src / share / doc / ps1 / 04.pascal / clash.p

program clash(output);
var
	i: integer;
	c: char;
begin
	i := 1;
	c := i;
	write(c, i)
end.
Commit	Line	Data
e4efeb17 C	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.