Транслятор з мови програмування Pascal на С++
35

  while (1);    // постійний цикл

  getch();

  return 0;

}