{* Задача 36 *}

Unit ZADACH36;
Interface
Implementation
Begin
 writeln('Программа для назначения дежурного в классе из списка 10ти учеников с вероятностью 1/15, в остальных случаях дежурит учитель. ');
End.

Program zadach36;

Uses zadach36.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
label 1, 2, 3;
Var {* Объявление переменных *}
  a : integer;
  b : integer;
  c : integer;
Begin
  randomize;
  ClrScr; {* Стираем всё с экрана *}
  Writeln('Нажмите 1 для получения сведений о дежурстве или 2 для выхода из программы');
  readln(a);
  ClrScr; {* Очищаем экран *}
  If a = 1 Then
    Goto 1
  Else Writeln('ОК, тогда сами дежурьте');
    Goto 3;
  1 : b := random(150);
  If b > 10 Then
    writeln('Сегодня дежурите вы')
  Else write('Сегодня дежурит ');
    Goto 2;
  2:
  Case b Of  1 : writeln('Александр');
    2 : writeln('Никита');
  3 : writeln('Евгения');
  4 : writeln('Андрей');
  5 : writeln('Анастасия');
  6 : writeln('Борис');
  7 : writeln('Мария');
  8 : writeln('Василий');
  9 : writeln('Владимир');
  10 : writeln('Алексей');
End;
  writeln('Если выбор вас не устраивает, нажмите 1, если все ок, нажмите 2');
  readln©;
  ClrScr; {* Стираем всё с экрана *}
If C = 1 Then
  Goto 1
Else Goto 3;
  3:
End.....