contoh soal - soal dan rumus menggunakan turbo pascal

      1. Program menghitung hari

program hari_bulan_tahun;
{Nia Rizki Ramadhani 25/10/2019 9:59}

uses crt;

var
  hari, bulan, tahun, sisa1, sisa2 : integer;

begin
  clrscr;
  writeln (' Program Menghitung Hari');
  writeln ('==================');
  writeln;
  write ('Tulis Jumlah Hari =  ');
  readln (hari);

  tahun    := hari div 365;
  sisa1     := hari mod 365;
  bulan    := sisa1 div 30;
  sisa2     := sisa1 mod 30;
  hari       := sisa2;

  writeln;
  writeln ('Berikut hasilnya =  ',  tahun,  '  Tahun ');
  writeln ('                             ',  bulan,  '  Bulan ');
  writeln ('                             ',  hari,   '  Hari  ');
  writeln;
  writeln ('Terima Kasih Telah Mencoba.');
  readln;
end.