sub fuenf_rnd($) {
    my $zahl = shift;
    return 5* int(0.5+$zahl/5);
}