Net2/usr/src/usr.bin/pascal/tstpx/src/scaltst.p

{$s+}
program test(output);

var
e :(red, pink, green, orange);
i :integer;
j :boolean;

begin
i := 1;
writeln(i:6:2);
e := pink;
writeln(e);
writeln(orange);
j := TRUE;
writeln(false);
writeln(j);
end.