/* Output from p2c 1.21alpha-07.Dec.93, the Pascal-to-C translator */
/* From input file "CIAGI.PAS" */


#include <p2c/p2c.h>



Static long t[100];
Static long i, ii, dl, wynik;


Static Void sprawdz_nastepne(nr)
long nr;
{
  if (t[nr-2] >= t[nr-1]) {
    if (dl > wynik && dl > 1)
      printf("%12ld do %12ld\n", nr - dl, nr);
    return;
  }
  /*      Writeln(nr-1,'<',nr);*/
  i = nr;
  dl++;
  sprawdz_nastepne(nr + 1);
}


main(argc, argv)
int argc;
Char *argv[];
{
  PASCAL_MAIN(argc, argv);
  clrscr();
  _randomize();
  for (i = 1; i <= 30; i++)
    t[i-1] = i;
  for (i = 31; i <= 100; i++)
    t[i-1] = _randint(1000L) + 1;
  /* for i:=1 to 100 do writeln(i,':',t[i]);*/
  wynik = 0;

  for (i = 2; i <= 100; i++) {
    dl = 0;
    sprawdz_nastepne(i);
    if (dl > wynik)
      wynik = dl;
  }
  if (wynik != 0)
    printf("Najdluszy ciag posiada %12ld znaki(ow)\n", wynik);
  else
    printf("Brak takich ciagow\n");
  exit(EXIT_SUCCESS);
}



/* End. */