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