Версия операционной системы:

Uses DOS; 
var
r : registers; 
begin
r.АН := $30;
MsDos(r);
WriteLn(' Версия операционной системы: ', r.AL, '.' r.АН) 
end.

Содержание раздела

---

---