Система программирования Turbo Pascal



                


Пример 11.2


Uses DOS; 

var

r : registers; 

begin

r.АН := $30;

MsDos(r);

WriteLn('Версия операционной системы: ', r.AL, '.' r.АН) 

end.









Содержание  Назад  Вперед