Паскаль. По номеру месяца вывести название следующего вывода

Var a: byte; beginif a=1 then write ('Январь'); if a=1 then write ('Февраль'); if a=1 then write ('Март'); if a=1 then write ('Апрель'); if a=1 then write ('Май'); if a=1 then write ('); if a=1 then write ('); if a=1 then write ('); if a=1 then write ('); if a=1 then write ('); if a=1 then write ('); if a=1 then write ('); end. Месяцы доставишь