Составить экзоминатор по любому предмету состоящий из 10 вопросов

вот. музыка, композитор глинка:

1.      м. глинки является композитором: a)      германииb)      италииc)      россии2.      какое утверждение о творчестве  м.и. глинки верно: a)      композитор-романтикb)      основоположник музыкиc)      входил в «могучую кучку»3.      время, в которое жил композитор: a)      во второй половине xix в.b)      в первой половине xix в.c)      в xviii в.4.      м.и. глинки сочинял большое количество: a)      романсовb)      этюдовc)      опер5.      опера, написанная м.и. глинкой: a)      «иван сусанин»b)      «борис годунов»c)      «евгений онегин»6.      в каком году написана эта опера композитором: a)      1870b)      1836c)      17407.      эта опера написана после поездки: a)      во франциюb)      в италиюc)      в румынию8.      большая драматургическая роль в опере принадлежит: a)      хоруb)      оркеструc)      дуэтам1. с какой страной связаны образы и темы симфонических произведений глинки «арагонская хота» и «ночь в мадриде»? испания.8  имя учителя глинки, немца по фамилии ден. зигфрид

1

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    if n mod 2 = 0 then write('четное') else write ('нечетное');

    realdn

end.

2

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    e : = n mod 10

    if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');

    realdn

end.

1)

var a, b: integer;

begin readln(a, b); if (a div 10 + a mod 10) > (b div 10 + b mod 10) then writeln('сумма цифр ', a, ' больше') else writeln('сумма цифр ', b, ' больше'); end.

2)

var a: integer;

begin readln(a); writeln((a mod 10) * 10 + a div 10); end.

3)

var a: integer;

begin readln(a); if ((a div 100) = (a mod 100) div 10) or ((a div 100) = (a mod 10)) or ((a mod 100) div 10 = (a mod 10)) then writeln('есть 2 одинаковые цифры') else writeln('нет 2-х одинаковых цифр'); end.