TURBO PASCAL:Учебное пособие. Терёхин В.В. - 90 стр.

var
   X, Y: Info;
Begin
   {Запись Х будет хранить информацию о студенте}
   X.pol:= true;
   X.fio:= 'Иванов И. И. ' ;
   {так как pol=true, то используем поле razmer}
   X.razmer:= 45.5;
   {использование поля color в данном
            случае возможно но вряд ли имеет смысл}
   {Запись Y будет хранишь информацию о студентке}
   Y.pol:= true;
   Y.fio:= 'Петрова М. И. ' ;
   {так как pol=false, то используем поле color}
   Y.color:= 'белый’ ;
   {а в этом случае возможно использование поля
     razmer, но и это не имеет смысла}
     {Если попытаться у первой записи вывести на экран
поле Color, а у второй razmer, то ошибки не произойдет,
но на экране окажутсябессмысленные значия}
   Writeln(X. color) ;
  Writeln(Y.razmer) ;
  {Это объясняется тем, что для хранения данных полей
    записи с вариантом используется один и тот же участок
    в памяти, в первом случае он имеет представление ве-
    щественного значения, а во втором строкового. И при
    обращении к полю color в первой записи компьютер
    пытается байты вещественного числа представить как
    строку и наоборот во втором случае . }
end.

           Задачи для самостоятельного решения
1. Написать программу, осуществляющую ввод инфор-
мации о военнослужащих некоторого войскового подразде-
ления: фамилия, имя, отчество, возраст, рост (от 140 до 210 см)
                                                             90