exit.pas

Пример программы для процедуры Exit.

Код примера
 {Exit.PAS}
 
 { Пример программы для процедуры Exit }
 
 Uses WinCrt;
 
 Procedure WasteTime;
 Begin
  Repeat
   If KeyPressed Then Exit;
   Write('Xx');
  Until False;
 End;
 
 Begin
  WasteTime;
 End.

Скачать exit.pas