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');
writeln ('masukkan nomor pilihan anda: ');readln (x);
clrscr;
case x of
1:begin
write ('minggu');
end;
2:begin
write ('senin');
end;
3:begin
write ('selasa');
end;
4:begin
write ('rabu');
end;
5:begin
write ('kamis');
end;
6:begin
write ('jumat');
end;
7:begin
write ('sabtu');
end;
end;
end.