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