Program P28;
type T1=-100..100;
     T2='A'..'H';
     T3=(A, B, C, D, E, F, G, H);
     T4=A..E;
     T5=integer;
     T6=real;
     T7=char;
     T8=boolean;
var i : T1;    j : T5;
    k : T2;    m : T3;
    n : T4;    p : real;
    q : T6;    r : char;
    s : T7;    t : boolean;
    z : T8;    y : real;
begin
 { ... calcule ce utilizează }
 { variabilele în studiu ... }
 writeln('Sfîrşit');
end.