Program Pascal 4

Akhirnya selesai juga...

nich...

program caseof1;
uses wincrt;
var
nohari:byte;
begin
writeln('==========Program hari==========');
writeln('=============by AE==============');
writeln;
write('Masukkan no hari = ');readln(nohari);

case nohari of
0 :begin
writeln('0 adalah hari minggu');
end;
1 :begin
writeln('1 adalah hari senin');
end;
2 :begin
writeln('2 adalah hari selasa');
end;
3 :begin
writeln('3 adalah hari rabu');
end;
4 :begin
writeln('4 adalah hari kamis')
end;
5 :begin
writeln('5 adalah hari jumat');
end;
6 :begin
writeln('6 adalah hari sabtu');
end;
else
writeln('nomor antara 1-6.');
end;
end.