#!/usr/bin/perl
#
#Aufgabe6Nummer2
{
 my $i;
 my $Teiler;
 my $Multiplikator;
  print("Bitte geben Sie einen Teiler ein!\n");
  $Teiler = <STDIN>;
  chomp($Teiler);
   
   if ($Teiler != 0) {
    $Multiplikator = ($i / $Teiler);
   } else {
    $Multiplikator = 0;
   }

 for ($i = 0; $i <= 30; $i++) {
  print("$i\n");
   if ($i % $Teiler == 0) {
    print("Ich bin durch $Teiler teilbar! Der Multiplikator ist $Multiplikator!\n");
   }
 }
}