Directory of image this file is from
This file as a plain text file

HE=",S:10:2,"  GESCHW.=",V:8:2,"  SPRIT=",SPRIT1," L");
WRITELN
("WIEVIEL LITER WOLLEN SIE ZUM BREMSEN INVESTIEREN?");
READLN;READ(SPRIT2);
IF SPRIT2>SPRIT1
THEN BEGIN
     SPRIT1:=SPRIT1;
    P:=SPRIT1
    END
ELSE
IF SPRIT2<0
THEN SPRIT1:=SPRIT1
ELSE SPRIT1:=SPRIT1-SPRIT2;
IF SPRIT2>P
THEN WRITELN
("SIE HABEN IHREN SPRITVORAT UEBERZOGEN,FLABES!!!!!")
ELSE IF SPRITPROGRAM ACKERMANN(IN,OUT);
VAR I,J:	INTEGER;
FUNCTION ACKER(M,N:	INTEGER):	INTEGER;
BEGIN
   IF M=0 THEN ACKER := N+1
          ELSE IF N=0 THEN ACKER := ACKER(M-1,1)
         	ELSE ACKER := ACKER(M-1,ACKER(M,N-1))
END;
BEGIN WRITE("I,J ");READLN;READ(I,J);
       WRITELN("ACKER(",I:1,",",J:1,") = ",ACKER(I,J):5)
END.