cat feladat5.sh
#!/usr/bin/perl

$zero = 0;
$szam = <>;
chomp ($szam);

for($zero; $zero<=$szam; $zero++) {
        print $zero;
        print " ";
}
print ("\n");

$zero = 0;
for($zero; $zero<=$szam; $zero = $zero + 2) {
        print $zero;
        if($szam !=0) {
                print "/";
        }


}

$zero = 1;
for($zero; $zero<=$szam; $zero = $zero + 2) {
        print $zero;
        if($szam % 2 == 0) {
                if($zero != $szam-1) {
                        print "/";
                } else {
                        print " ";
                }
        }
        if($szam % 2 != 0) {
                if($zero != $szam) {
                        print "/";
                } else {
                        print " ";
                }

        }
}