#!/usr/bin/perl

print "\nDas ist Michis ein-mal-eins.\n";
print "Nach 10 richtigen Antworten bist du fertig\n";
$richtig = 0;
$falsch  = 0;
while ( $richtig < 10 )
{
    $f1 = 1 + int( rand( 9 ) +0.5 );
    $f2 = 1 + int( rand( 9 ) +0.5 );
    print "$f1 x $f2 = ";
    $a = <STDIN>;
    if ( $f1 * $f2 != $a )
    {
        $a = $f1 * $f2;
        print "falsch. Richtig ist $a\n\n";
        $falsch++;
    }
    else
    {
        print "richtig\n\n";
        $richtig++;
    }
}
print "Hurra geschafft !!\n";
if ( $falsch > 0 )
{
    print "wenn auch $falsch falsch waren\n";
}
print "\n";
