Program Konversi dari Hari ke Tahun, Bulan, Hari dalam Pascal

program darihari;
uses crt;

var
        jumlahhari:integer;
        hari:integer;
        bulan:integer;
        tahun:integer;
        sisahari:integer;
begin
clrscr;
        write('Masukkan jumlah hari yang akan di konversi : '); readln(jumlahhari);
                 tahun:=jumlahhari div 365;
                 sisahari:=jumlahhari mod 365;
                 bulan:=sisahari div 30;
                 hari:=sisahari mod 30;
        writeln('Hasil konversi dari ',jumlahhari,' hari adalah ',tahun,' tahun ',
                bulan,' bulan ',hari,' hari ');
        readln();
end.