1program x(output); 2var 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; 9begin 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') 21end. 22