Помогите пожалуйста, очень надо! В соответствии с числом n выводить на экран…

Var a: integer; beginwriteln ('Введите число'); readln (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 > 7 then writeln ('Значение числа "a" неверно! '); end.