Program Penghitung Hari

Program penghitung_hari;
Uses Crt;
Var
  x:longint;
  y:longint;
  z:longint;
Begin
  writeln('Assalamualaikum');
  writeln('Selamat datang di program ini');
  writeln('Program ini dibuat untuk mengetahui hari dari angka yang diberikan');
  writeln('Progaram ini juga bisa menambah/mengurangi angka untuk mengetahui hari akhirnya');
  write('Masukkan angka untuk mengetahui harinya ');readln(x);
  if x mod 7 = 1 then
     writeln('hari ke ',x,' adalah hari Senin')
  else if x mod 7 = 2 then
          writeln('hari ke ',x,' adalah hari Selasa')
       else if x mod 7 = 3 then
               writeln('hari ke ',x,' adalah hari Rabu')
            else if x mod 7 = 4 then
                    writeln('hari ke ',x,' adalah hari Kamis')
                 else if x mod 7 = 5 then
                          writeln('hari ke ',x,' adalah hari Jumat')
                      else if x mod 7 = 6 then
                              writeln('hari ke ',x,' adalah hari Sabtu')
                           else if x mod 7 = 0 then
                                   writeln('hari ke ',x,' adalah hari Minggu');
  write('Silahkan, masukkan tambahan harinya ');readln(y);
  z:=x+y;
  if z mod 7 = 1 then
     writeln('hasilnya setelah di jumlah= ',z,' itu adalah hari Senin')
  else if z mod 7 = 2 then
          writeln('hasilnya setelah di jumlah= ',z,' itu adalah hari Selasa')
       else if z mod 7 = 3 then
               writeln('hasilnya setelah di jumlah= ',z,' itu adalah hari Rabu')
            else if z mod 7 = 4 then
                    writeln('hasilnya setelah di jumlah= ',z,' itu adalah hari Kamis')
                 else if z mod 7 = 5 then
                          writeln('hasilnya setelah di jumlah= ',z,' itu adalah hari Jumat')
                      else if z mod 7 = 6 then
                              writeln('hasilnya setelah di jumlah= ',z,' itu adalah hari Sabtu')
                           else if z mod 7 = 0 then
                                   writeln('hasilnya setelah di jumlah= ',z,' itu adalah hari Minggu');
                                   writeln('Terima kasih sudah menggunakan program ini');
                                   writeln('Semoga bermanfaat');
End.