program ERAST(INPUT,OUTPUT);

  VAR NYUURYOKU:INTEGER;

  {$I B:ERAST.SRC}

   BEGIN
      READLN(NYUURYOKU);
      WRITELN(NYUURYOKU,' دأق ة ؟½³ ' );
      ERAST(NYUURYOKU);
   END.