#!/usr/local/bib/perl #venir-quiz.cgi push (@INC, "Mitrevski:Macperl :lib"); require 'cgi-lib.pl'; &ReadParse; $header = <Russian Quiz Results

These are the results of the quiz

header print "
\n"; print &PrintVariablesShort (%in); print "
\n"; print "

A. Fill in each blank with the appropriate personal pronoun.

\n"; if ($itemA1 eq "׍") { print "1. ׍ ?
\n"; $grade++ } else { print "1. ", $itemA1, " .
\n"; } if ($itemA2 eq "Ս") { print "2. ۉޡ Ս ׉ Չ.
\n"; $grade++ } else { print "2. ۉޡ ", $itemA2, " ׉ Չ.
\n"; } if ($itemA3 eq "") { print "3. ӊ, ތ ފ?
\n"; $grade++ } else { print "3. ӊ, ތ ", $itemA3, " ފ?.
\n"; } if ($itemA4 eq "") { print "4. ù չ.
\n"; $grade++ } else { print "4. ", $itemA4, " ù չ.
\n"; } if ($itemA5 eq "") { print "5. .
\n"; $grade++ } else { print "5. ", $itemA5, " .
\n"; } print "

B. Fill in each blank with the appropriate verb from the list below.

\n"; if ($itemB1 eq "ù") { print "1. ù
\n"; $grade++ } else { print "1. ", $itemB1, " .
\n"; } if ($itemB2 eq "Ë") { print "2. « ա Ë .
\n"; $grade++ } else { print "2. « ա ", $item1, " .
\n"; } if ($itemB3 eq "ފ") { print "3. ٍ ފ ?
\n"; $grade++ } else { print "3. ٍ ", $item1, " ?
\n"; } if ($itemB4 eq "") { print "4. צ?
\n"; $grade++ } else { print "4. ", $item1, " צ?
\n"; } print "
Ë, , ފ, ù

"; print "

C. Translate the sentences into Russian.


\n"; print "1. Who lives in apartment number two?
\n"; print "Your traslation: ", $itemC1, "
\n"; print "Correct translation: Ό ׉ ס Չ ס?
\n"; print "2. We live and work in Moscow.
\n"; print "Your traslation: ", $itemC2, "
\n"; print "Correct translation:̍ ׉ ̦׉.
\n"; print "3. What are you (sg.) doing in the park?
\n"; print "Your traslation: ", $itemC3, "
\n"; print "Correct translation: á ?
\n"; print "Your grade for sections A and B is ", $grade, ".
\n"; print "";