#!perl
print "\n\nDas Paddsensche Dreieckswunder\n\n";
print "--------------------------------------------------------------------\n Programm zum Errechnen von Dreiecksseiten im rechtwinkligen Dreieck\n--------------------------------------------------------------------\n\n";
print "Hast du die Hypothenuse gegeben? Gib 'Ja' oder 'Nein' ein.\n\n";
$info1 = <STDIN>;
if ($info1 eq "Ja\n") {
    print "\n Ok, dann gebe sie nun ein\n\n";
    $hypo = <STDIN>; #Die Hypothenuse
    print "\n ...und nun die Seite, die du weisst eingeben...\n\n";
    $seite = <STDIN>; # Die seite
    print "\n Die fehlende Seite hat die Laenge " . ((($hypo ** 2) - ($seite ** 2)) ** 0.5);
} else {
    print "\n Gut. Dann gib jetzt bitte die erste Seite ein:\n\n";
    $seite1 = <STDIN>;
    print "\n ...und dann die Seite 2 eingeben:\n\n";
    $seite2 = <STDIN>;
    print "\n Die Laenge der Hypothenuse c betraegt " . (($seite1 ** 2) + ($seite2 **2)) ** 0.5;
}

print "\n--------------------------------------------------------------------"