donewcrt.pas

  {DoneWCrt.PAS}
 
  { Пример программы для процедуры DoneWinCrt }
  { Компилировать в режиме Windows }
  { Используйте русские фонты в Win32 }
 
  Uses WinCrt;
 
 Begin
  WriteLn('Это первое окно CRT.');
  WriteLn('Нажмите <ENTER>.');
  ReadLn;
  DoneWinCRT;
  WriteLn('Это второе окно CRT.');
 End.