[unix-history] / puman / expr.p

program x(output);
var
	a: set of char;
	b: Boolean;
	c: (red, green, blue);
	p: ^ integer;
	A: alfa;
	B: packed array [1..5] of char;
begin
	b := true;
	c := red;
	new(p);
	a := [];
	A := 'Hello, yellow';
	b := a and b;
	a := a * 3;
	if input < 2 then writeln('boo');
	if p <= 2 then writeln('sure nuff');
	if A = B then writeln('same');
	if c = true then writeln('hue''s and color''s')
end.
Commit	Line	Data
5bd13011 BJ	1	program x(output);
	2	var
	3	a: set of char;
	4	b: Boolean;
	5	c: (red, green, blue);
	6	p: ^ integer;
	7	A: alfa;
	8	B: packed array [1..5] of char;
	9	begin
	10	b := true;
	11	c := red;
	12	new(p);
	13	a := [];
	14	A := 'Hello, yellow';
	15	b := a and b;
	16	a := a * 3;
	17	if input < 2 then writeln('boo');
	18	if p <= 2 then writeln('sure nuff');
	19	if A = B then writeln('same');
	20	if c = true then writeln('hue''s and color''s')
	21	end.