Написать программу, которая по введенному числу от 1 до 12

Если будут где-то ошибки извините, возможно в знаках) проверьте в паскале, если что напишите program prazdnik; var a: integer; beginreadln (a); if a=1 then writeln ('пишите сюда праздиники в первый месяц, какие нужны'); if a=2 then writeln ('сюда то чт ово второй '); if a=3 then writeln (' третий '); if a=4 then writeln (' четвертый месяц с его праздниками'); if a=5 then writeln (' пятый месяц'); if a=6 then writeln (' шестой месяц'); if a=7 then writeln (' седьмой месяц'); if a=8 then writeln (' восьмой'); if a=9 then writeln (' праздники '); if a=10 then writeln ('празники '); if a=11 then writeln (' праздники 11 месяца'); if a=12 then writeln ('двенадцатый'); end.