ПОЖАЛУЙСТА, НАПИШИТЕ ПРОГРАММУ, ДАЮ ВСЕ ОСТАВШИЕСЯ БАЛЛЫ

Symbol1;

a: integer;

     b: char;

       randomize;

       a := random(95)+33;

      b:= ord(a);

       writeln(b);