турбо паскале

[DoDge_VipeR]

Ввести номер дня недели и вывести на печать соответствующий ему день недели на русском языке

var dn:integer;
readln (dn);
case dn of
1: writeln('пн');
2: writeln('вт');
3: writeln('ср');
4: writeln('чт');
5: writeln('птн');
6: writeln('сб');
7:writeln('вск');
end;
end.