r(0). r(N):-write(N),write(' Scio nescio'),nl,N1 is N-1,r(N1).
Ändere das Programm so ab, dass die Schleife vorwärts durchlaufen wird.