Autos und Ampeln Aufg.3

repeat
   if Ampel1.AmpelFarbe = gruen then
       Auto1.fahre(1);
   else
       begin
          if Auto1.xPosVorne = Ampel1.xPos then
             begin
               // tue nix
             end
          else
             begin
                Auto1.fahre(1)
             end
       end;

   if Auto1.xPosHinten > derBildschirm.breite then
      Auto1.setzePosition(-100, Auto1.yPosVorne);




   if dieTastatur.wurdegedrueckt then


     begin
       dieTastatur.weiter;
       Ampel1.schalte;
     end;


   dieUhr.warte(1);

Until dieMaus.istGedrueckt;