Contoh Program Pascal | Case Of

Uses wincrt;
Var A:integer;
Begin
writeln('Masukan hari ke : ');readln(A);
Case (a) Of
   1 : write ('hari ke',A,' adalah Senin');
   2 : write ('hari ke',A,' adalah Selasa');
   3 : write ('hari ke',A,' adalah Rabu');
   4 : write ('hari ke',A,' adalah Kamis');
   5 : write ('hari ke',A,' adalah Jumat');
   6 : write ('hari ke',A,'adalah Sabtu');
   7 : write ('hari ke',A,' adalah Minggu')
   else  write('salah ketik coyyy!!!');
 End;
 end.