Составить алгоритм с разветвлением "Является ли девушка принцессой" (по сказке "Принцесса на горошине")

Program Princess;uses crt;var  M:Integer;begin  writeln('***************************************');  writeln('*        Вас приветствует ППП         *');  writeln('*    Программа Проверки Принцесс      *');  writeln('*                                     *');  writeln('*      Сейчас узнаем...               *');  writeln('***************************************');  writeln('1. Постелите постель для девушки');  writeln('2. Подложите горошину');  writeln('3. Дождитесь утра...');  writeln('4. Разбудите девушку');  writeln('5. Спросите: "Как Вам спалось?" ');  writeln('6. Введите в систему ответ девушки:');  writeln('   0 - "Плохо, совсем не сомкнула глаз..." ');  writeln('   1 - "Отлично выспалась" ');  readln(M);  writeln('***************************************');  writeln('*                Итак...              *');  if m=0 then  writeln('* Эта девушка - настоящая принцесса!  *')  else   writeln('*  Увы! Эта девушка - не принцесса!   *');  writeln('***************************************');end.