chr.pas

  {Chr.PAS}                                                                  
 
  { Пример программы для функции Chr } 
 
  Uses WinCrt;
 
  Var I : Integer;
  Begin 
   For I:=32 To 127 Do Write(Chr(I)); 
  End.