PROCEDURE For_Schleife;

VAR Lauf,Zaehler : Integer;

BEGIN
  WriteLn('For Schleife');
  Zaehler:=0;
  FOR Lauf:=0 TO 10 DO
  BEGIN
    WriteLn(Zaehler);
    Zaehler:=Zaehler+2;
  END;
END;

PROCEDURE While_Schleife;

VAR Zaehler : Integer;

BEGIN
  WriteLn('While Schleife');
  Zaehler:=0;
  WHILE Zaehler<=20 DO
  BEGIN
    WriteLn(Zaehler);
    Zaehler:=Zaehler+2;
  END;
END;

PROCEDURE Repeat_Schleife;

VAR Zaehler : Integer;

BEGIN
  WriteLn('Repeat Schleife');
  Zaehler:=0;
  REPEAT
    WriteLn(Zaehler);
    Zaehler:=Zaehler+2;
  UNTIL Zaehler>20;
END;


BEGIN
  For_Schleife;
  While_Schleife;
  Repeat_Schleife;
END.