Помогите пожалуйста написать программу. Либо в Delphi либо на Pascal

Question

Задание: Составить программу используя команду выбора case; Придумать и задать входные данные так, чтобы выбор был с 4—7 альтернативами. 
Ввести номер дня недели. Вывести его название.

Сергей Васильев · Accepted Answer

var i:byte; 
begin 
writeln('input i');readln(i); 
case i of 
1: writeln('poniedzialek'); 
2:writeln('wtorek'); 
3:writeln('sreda'); 
4:writeln('czwartek'); 
5:writeln('piatek'); 
6:writeln('sobota'); 
7:writeln('niedzielia') 
else writeln('nie dzien tygodnia'); 
end; 
readln; 
end.