Назовите тип каждой переменной описанной в программе 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 тыс.