#!perl
print "Das Paddsensche Dreieckswunder\n\n";

print "Programm zum Errechnen non Dreiecksseiten\n\n\n";

print "Hast du die Hypothenuse gegeben?Gib Ja oder Nein ein.\n";

$info1 = <STDIN>;

if ($info1 eq "Ja\n") {
    print "Ok, dann gebe sie nun ein\n";
} else {
    print "hmm, Pech gehabt\n\n"
}

$hypo = <STDIN>; #Die Hypothenuse

print "...und nun die Seite, die du weisst eingeben...\n\n";

$seite = <STDIN> # Die seite

print "((($hypo ** 2) - ($seite ** 2)) ** 0.5)";