PROGRAM RekursivRueckwaerts (input,output); {Markus Schaber, Bl6 Aufg1}

CONST ENDE=chr(10);

PROCEDURE RekursiveProzedur;
{Liest Zeichen ein, ruft sich selber auf und gibt Zeichen wieder aus.}
VAR c: CHAR;  {Das eingegebene Zeichen}
BEGIN
     READ(c);
     IF c<>ENDE THEN BEGIN {Abbruchbedingung Return-Taste}
        RekursiveProzedur;
        Write(c);
     END;
END;

BEGIN
     RekursiveProzedur; {Starten der Prozedur}
END
.