program Uebung;
var 
  i : integer;
begin
//Das ist die for-Schleife//
  for i := 1 to 20 do 
    begin
    write (i);
    writeln ('Hase');
    end; 
//Das ist die repeat-Schleife//
  i := 1; 
  repeat
  write (i);
  writeln ('Igel');   
  i := i+1;
  until i = 21;   
 i:= 1;
//Das ist eine while-Schleife)//
  while i < 21 do
  begin
    write (i);
    writeln ('Schnecke');   
    i := i+1;
end; 
writeln (i);
end.