ini adalah Hari

Uses crt;

Var
        hari: Integer;
Begin
        CLRSCR;
        WRITELN('Masukan Nomor Hari: ');
        READLN(Hari);

        If ( Hari = 1) Then WRITELN('Senin')
        Else If (Hari = 2) Then WRITELN('Selasa')
        Else If (hari = 3) Then WRITELN('Rabu')
        ELse If (Hari = 4) Then WRITELN('Kamis')
        Else If (hari = 5) Then WRITELN('Jumat')
        ELSE if (Hari = 6) Then WRITELN('Sabtu')
        Else if (Hari = 7) Then WRITELN('Minggu');
        READLN();
End.