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

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