break.pas

  {Break.PAS}                                                               
 
  { Пример программы для процедуры Break }
 
  Uses WinCrt;
  Var S : String;
  Begin 
   While True Do
    Begin 
     ReadLn(S);
     If S = '' Then Break;
     WriteLn(S);
    End;
  End.