contoh progam Pascal | Case of

contoh progam Pascal | Case of

uses wincrt;
var c:integer; x:char;
begin
repeat
writeln('masukan hari ke :');readln(c);
case (c) of
     1:write('Hari ke :',c,' adalah Senin');
     2:write('Hari ke :',c,' adalah Selasa');
     3:write('Hari ke :',c,' adalah Rabu');
     4:write('Hari ke :',c,' adalah Kamis');
     5:write('Hari ke :',c,' adalah Jumat');
     6:write('Hari ke :',c,' adalah sabtu');
     7:write('Hari ke :',c,' adalah Minggu');
     else write('jangan bcanda akh!!:P');
end;
readln;
write('Apakah Anda Ingin Mengulang Lagi [Y/T]: ');readln(x);
until upcase (x)<>'Y';
end.