program endlos;
var
i: integer;
begin
// FOR- Schleife
  for i :=1 to 10 do
   begin
    writeln( 'For Durchlauf: ',i);
  end;

// repeat-Schleife
  i:=1;
  repeat
    writeln('For Durchlauf: ',i);
    i:= i+1;
  until i> 10;

// WHILE- Schleife
  i:=1;
  while i<= 10 do
  begin
   writeln ('While Durchlauf: ',i);
   //inc(i);   <--- Endlosschleife, da hier die Zählvariable nicht verändert wird!
  end;
end.