Составить программу, которая в зависимости от порядкого номера дня недели выводит на экран его название

Program z1;
Var n: integer;
Begin
Read (n);
Case n of               или  n mod 7
1: Write (‘понедельник’);
2: Write (‘вторник’);
3: Write (‘среда’);
4: Write (‘четверг’);
5: Write (‘пятница’);
6: Write (‘суббота’);
7(0): Write (‘воскресенье’);
end;
end.