Marian

######Programmstart

print "Moechten sie mit dem Auto verreisen?\n";
$Auto = <stdin>; chomp($Auto);
if ($Auto eq "ja"){
    print "Ein gute und sichere Fahrt.\n"
  }else {
    print "Wie oft verreisen Sie mit dem Zug?.\n"
}
print "Moechten sie mit dem Auto verreisen?\n";
$Auto = <stdin>; chomp($Auto);
if ($Auto eq "ja"){
  print "Ein gute und sichere Fahrt.\n";
}else {
  print "Wie oft verreisen Sie mit dem Zug?.\n";
  $Zug = <stdin>; chomp($Zug);
  print "Wie teuer ist eine Karte.\n";
  $Karte = <stdin>; chomp ($Karte);
  print "Haben Sie eine Bahncard?\n";
  $Card = <stdin>; chomp ($Card);
  if ($Card eq "ja"){
    print " Welche ? \n";
    $Cardname = <stdin>; chomp ($Cardname);
    $Gesamtkosten = $Zug*($Karte-($Karte*$Cardname/100));
    print "Ihre Kosten aufgrund der Bahncard belaufen sich auf $Gesamtkosten Euro!\n";
  }else{
    print "Das Ticket kostet Sie $Zugfahrt.\n";
}
######Programmende