IF hari

program konversi2;
uses
    wincrt;
var
   a: byte;

begin
     write('nomor hari : ');readln(a);
     if (a=1) then write ('senin')
     else
     if (a=2) then write ('Selasa')
     else
     if (a=3) then  write('rabu')
     else
     if (a=4) then  write('kamis')
     else
     if (a=5) then  write('jumat')
     else
     if (a=6) then  write('sabtu')
     else
     if (a=7) then  write('minggu')
     else
         write('tidak hari');

end.