program loop;
var
i: integer;

procedure Spezialausgabe;
begin
  writeln ('Das ist aber toll');
  writeln ('..und die 2. Zeile');
end;
procedure Sprueche (Nr: integer);
Begin
   Case Nr of
   1: writeln ('Du bist meine Nr 1');
   2: writeln ('Hallo');
   3: writeln ('Sorry');
   4: writeln ('Pech gehabt');
end;
end;
begin
// FOR- Schleife
  for i :=1 to 10 do
   begin
    writeln( 'For Durchlauf: ',i);
    Spezialausgabe;
  end;
// repeat-Schleife
  i:=1;
  repeat
    writeln('For Durchlauf: ',i);
    Spezialausgabe;
    i:= i+1;
  until i> 10;
// WHILE- Schleife
  i:=1;
  while i<= 10 do
  begin
   writeln ('While Durchlauf: ',i);
   Sprueche(i);
   inc(i);
  end;
end.