program Program01; var i : byte; begin i := 0; repeat WriteLn('Körte'); Inc(i); until i>=5; end.