создать програму
чтобы Выводила слово «студент» в заданном пользователем падеже: N - именительный, R - родовой, и т.д

var s : char;beginreadln(s);case s of'N':writeln ('Студент');'R':writeln ('Студента');'D':writeln ('Студентом');'V':writeln ('Студента');'T':writeln ('Студентом');'P':writeln ('О студенте');end;end.