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



                  


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



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

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