Версия операционной системы:
Uses DOS;
var
r : registers;
begin
r.АН := $30;
MsDos(r);
WriteLn(' Версия операционной системы: ', r.AL, '.' r.АН)
end.
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий