Program P30;
type T1=integer;
     Studii=(Elementare, Medii, Superioare);
     T2=real;
     Culoare=(Galben, Verde, Albastru, Violet);
var x : real;
    y : T1;
    i : integer;
    j : T2;
    p : boolean;
    c : Culoare;
    s : Studii;
    q : Galben..Albastru;
    r : 1..9;
begin
 { ... calcule în care se utilizează }
 { variabilele în studiu ...         }
 writeln('Sfîrşit');
end.