Надо "с клавиатуры вводится число,выдать на экран месяц ему соответствующий "

 var n:integer;
begin
  repeat
     read(n);
 until n=>1 and n<=12 ;
case n of
  1: writeln('Январь');
  2: writeln('Февраль');
  3: writeln('Март');
  4: writeln('Апрель');
  5: writeln('Май');
  6: writeln('Июнь);
  7: writeln('Июль');
  8: writeln('Август');
  9: writeln('Сентябрь');
  10: writeln('Октябрь');
  11: writeln('Ноябрь');
  12: writeln('Декабрь');
end;
end.