18v

program ka;
uses crt;
var n: integer;
begin
 writeln ('номер месяца',n); readln (n);
if (n=1)
then writeln ('январь') ;
if (n=2)
then writeln  ('февраль') ;
if (n=3)
then writeln ('март');
  if (n=4)
   then writeln ('апрель');
  if (n=5)
  then writeln ('май');
     if (n=6)
  then writeln ('июнь');
   if (n=7)
   then writeln ('июль');
   if (n=8)
    then writeln ('август');
     if (n=9)
     then writeln ('сентябрь');
      if (n=10)
      then writeln ('октябрь');
       if (n=11)
      then writeln ('ноябрь');
     if (n=12)
      then writeln ('декабрь');
readkey;
end.