Назовите тип каждой переменной описанной в программе p18 program p18 type litere = ( a, b, c, d, e, f, g); var x : litere; y: char ; i : integer ; begin x; = a; i : = ord (x); writeln ( i) ; y : = ' a' ; i: ord (y); writeln (i) ; end.

В этой программе создан новый тип для А, В...
стандартный символьный тип для у, т.е. для одного какого-то символа
целочисленный в пределах -32 тыс.  + 32 тыс.