Schleifen

Program Schelifen (output);

var zaehler: integer;

begin
    writeln('FOR Schleife');
  
    for zaehler:=1 to 5 do
        begin
            writeln('5 mal ',zaehler,' = ',zaehler*5);
        end;

    writeln();
    writeln('REPEAT Schleife');
  
    zaehler:=1;
  
    repeat
        begin
            writeln('5 mal ',zaehler,' = ',zaehler*5);
            zaehler:=zaehler+1;
        end;
    until zaehler>5;
    
    writeln();
    writeln('WHILE Schleife');
    
    zaehler:=1;
    
    while (zaehler<6) do
        begin
            writeln('5 mal ',zaehler,' = ',zaehler*5);
            zaehler:=zaehler+1;
        end;


    
end.