операторы if и case, Паскаль

[romanwizard]

№1
Выполнить оператор условного перехода IF или CASE
Значения переменных X, Y, Z поменять местами так, чтобы они оказались упорядоченными по убыванию.

№2
Написать программу простого тестирования. Тестирование заключается в проверке правильности ответов на 5 вопросов (вопросы и их тематику выбрать самостоятельно, ответы на вопросы должны предполагать ввод числовых данных, например, "В каком году началась Великая Отечественная война?"). Предусмотреть выставление оценки по числу правильных ответов.

Заранее благодарен!!!

[Хыиуду]

Второе - вообще банально
otvet:=0;
writeln('В каком году началась ВОВ?');
readln(s);
if s='1941' then inc(otvet);
И так же еще 4 вопроса.