Cara Membuat Program Algoritma Hari Berdasar Contoh

program Program_asosiasi_hari;

 

uses

  WinCrt;

var

harike:integer;

begin

clrscr;

writeln('Hari Ke....=');

readln (harike);

case harike of

1 : writeln('Minggu');

2 : writeln('Senin');

3 : writeln('Selasa');

4 : writeln('Rabu');

5 : writeln('Kamis');

6 : writeln('Jumat');

7 : writeln('Sabtu');

end;

END.