Program Polik1907;
uses crt;
Var
  tur:real;
  mes:integer;
begin
  writeln('***************************************');
  writeln('*    Мы рады приветствовать вас       *');
  writeln('*         в нашем турагентстве        *');
  writeln('*         P O L I K   1 9 0 7         *');
  writeln('*               ! ! !                 *');
  writeln('***************************************');
  writeln();
  writeln('Введите базовую стоимость путёвки: ');
  readln(tur);
  writeln('month Введите номер месяца: ');
  readln(mes);
  case mes of
    1,5,10: writeln('Стоимость вашей путёвки составит ',tur,'  рублей');
    6,7,8,9:  writeln('Стоимость вашей путёвки составит ',tur*1.2,'  рублей');
    2,3,4,11,12:  writeln('Стоимость вашей путёвки составит ',tur*0.8,'  рублей');
    else writeln('Введите правильный номер месяца');
  end;
end.