Program Hari dalam Case_of

program hari;
uses wincrt;
var x:integer;
begin
writeln('1. minggu');
writeln('2. senin');
writeln('3. selasa');
writeln('4. rabu');
writeln('5. kamis');
writeln('6. jumat');
writeln('7. sabtu');
readln(x);
clrscr;
case x of
1: begin
clrscr;
write ('1. minggu');
end;
2: begin
clrscr;
write ('2. senin');
end;
3: begin
write ('3. selasa');
end;
4: begin
write ('4. rabu');
end;
5: begin
write ('5. kamis');
end;
6: begin
write ('6. jumat');
end;
7: begin
write ('7. sabtu');
end;
end;
end.