Правила форума
DOSVrsn.PASLanguage:
Русский
English
{DOSVrsn.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the DOSVersion function.}
uses WinDos, WinCrt; {Add WinCrt }
var
Ver: Word;
begin
Ver := DosVersion;
Writeln('This is DOS version ', Lo(Ver), '.',
Hi(Ver));
end.
::
::
::
