Напишите программу на Pascal для заказа гостиницы на курорте Трускавец. Выберите уровень гостиницы, количество мест

pascal

program OrderHotel;



var

  HotelName: string;

  RoomType: string;

  MealType: string;

  NumberOfGuests: integer;

  Price: integer;



begin

  writeln("Добро пожаловать в программу заказа гостиницы в Трускавце!");

  writeln("-------------------------------------------------------");



  writeln("Выберите гостиницу:");

  writeln("1. Курортная (5 звезд)");

  writeln("2. Верховина (4 звезды)");

  writeln("3. Гуцулка (3 звезды)");

  write("Введите номер гостиницы: ");

  readln(HotelName);



  writeln("Выберите тип номера:");

  writeln("1. Одноместная комната");

  writeln("2. Двухместный номер");

  write("Введите номер типа номера: ");

  readln(RoomType);



  writeln("Выберите тип питания:");

  writeln("1. С питанием");

  writeln("2. Без питания");

  write("Введите номер типа питания: ");

  readln(MealType);



  writeln("Введите количество гостей: ");

  readln(NumberOfGuests);

  

  case HotelName of

    "1":

    begin

      if RoomType = "1" then

      begin

        if MealType = "1" then

          Price := 1500

        else if MealType = "2" then

          Price := 1000;

      end

      else if RoomType = "2" then

      begin

        if MealType = "1" then

          Price := 2500

        else if MealType = "2" then

          Price := 1500;

      end;

    end;

    

    "2":

    begin

      if RoomType = "1" then

      begin

        if MealType = "1" then

          Price := 900

        else if MealType = "2" then

          Price := 600;

      end

      else if RoomType = "2" then

      begin

        if MealType = "1" then

          Price := 1500

        else if MealType = "2" then

          Price := 900;

      end;

    end;

    

    "3":

    begin

      if RoomType = "1" then

      begin

        if MealType = "1" then

          Price := 500

        else if MealType = "2" then

          Price := 300;

      end

      else if RoomType = "2" then

      begin

        if MealType = "1" then

          Price := 800

        else if MealType = "2" then

          Price := 500;

      end;

    end;

  end;



  // Вывод информации о заказе

  writeln("-------------------------------------------------------");

  writeln("Информация о вашем заказе:");

  writeln("Гостиница: ", HotelName);

  writeln("Тип номера: ", RoomType);

  writeln("Тип питания: ", MealType);

  writeln("Количество гостей: ", NumberOfGuests);

  writeln("Цена: ", Price * NumberOfGuests, " грн");



  writeln("-------------------------------------------------------");

  writeln("Спасибо за использование нашей программы!");

end.