revin
cu programul generat
program xxz;
type tip1=1..10;
tip2= (alb, rosu, gri,negru,oranj);
var x: tip1;
a:tip2;
y: '0'..'9'; //asta primul este 0 zero nu o
b: alb..negru;
c: 'A'..'D';
begin
x:= 2 ;//(TRUE);
a:= albastru; //(FALSE ); eroare
y:= 2; //(FALSE); eroare
b:= oranj ;//(FALSE); eroare
c:= 'B';//(TRUE);
end.