Па Павел var i,n:integer; begin readln(n); case n of 1:writeln('Январь'); 2:writeln('Февраль'); 3:writeln('Март'); ... end; end.