program project1;
type
TProblem = (
BC_Square,
BC_Rounded_Light, BC_Rounded_Medium, BC_Rounded_Full, BC_Rounded_Full_MoreRoom, BC_Rounded_Full_H, BC_Rounded_Full_V, BC_Rounded_Rel_Light,
BC_Balloon_Light, BC_Balloon_Medium, BC_Balloon_Full, BC_CRT,
BC_Pad_Soft, BC_Pad_Light, BC_Pad_Medium, BC_Pad_Full, BC_Pad_Cut,
BC_Bulge_H, BC_Bulge_V, BC_Drop_H, BC_Drop_V, BC_Bean, BC_Bean_H, BC_Bean_V, BC_Bean_Alt_H, BC_Cushion_Light_H, BC_Cushion_Medium_H,
BC_Drop_In_H,
BC_Arrow_In_H, BC_Arrow_In_V, BC_Arrow_Out_H, BC_Arrow_Out_V,
BC_Skew_H, BC_Skew_V, BC_AltSkew_H, BC_AltSkew_V, BC_SharpSkew_H, BC_SharpSkew_V
);
var
global1 : TProblem;
begin
global1 := TProblem(-1);
case global1 of
BC_Rounded_Full: writeln('ok');
BC_Rounded_Full_MoreRoom: writeln('ok');
BC_Drop_H: writeln('ok');
BC_Drop_V: writeln('ok');
BC_Drop_In_H: writeln('ok');
BC_Arrow_In_H: writeln('ok');
BC_Arrow_In_V: writeln('ok');
BC_Arrow_Out_H, BC_Rounded_Full_H: writeln('ok');
BC_Arrow_Out_V, BC_Rounded_Full_V: writeln('ok');
BC_Skew_H, BC_AltSkew_H, BC_SharpSkew_H: writeln('ok');
BC_Skew_V, BC_AltSkew_V, BC_SharpSkew_V: writeln('ok');
else
writeln('ok');
end;
end.