Лабораторные работы 1-4 / MyPrObl / prOb / TIPE

unit Tipe;

interface

const
nword=40;

type
String40 = String[NWord];
tips = (integ,rel, wrd);
domen = record case kind:tips of integ:(di:integer);
rel:(dr:real); wrd:(dw:string40);end;
var
FlagPrObl:Boolean;{Признак запуска Предметной Области}
Auto:Boolean;{Признак режима работы}
Fuzzi:Boolean;{Признак использования коэффициентов доверия}
ExeName:String;
Exe_Flag:Boolean;
ValueExe:String40;
Flag13:Boolean;

implementation

end.