Penggunaan Berulang Nilai Sebuah Variabel Bagian 2

program Latihan96;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, sysutils, dateutils
  { you can add units after this };

// Membuat inputan tanggal
   var

     Tanggal : TDateTime;

     Tahun : Word; // Untuk kode tahun

     Bulan : Word; // Untuk kode bulan

     Hari : Word; // Untuk kode hari

begin

    write('Masukan Kode Tahun: ');

    readln(Tahun);

    writeln('Tahun yang dimasukan: ',Tahun);

    // Ini bukti kalau variabel, 1x didefinisikan, maka valuenya bisa dipakai diseluruh
    // source code secara berulang-ulang.

    writeln('Tahun depan: ',Tahun);


    // Sekarang percobaan yang sama untuk kode bulan
    write('Masukan Kode Bulan: ');

    readln(Bulan);

    writeln('Bulan yang dimasukan: ',Bulan);

    writeln('Bulan depan: ',Bulan);


    // Sekarang percobaan yang sama untuk kode hari

    write('Masukan Kode Hari: ');

    readln(Hari);

    writeln('Hari yang dimasukan: ',Hari);

    writeln('Hari besok: ',Hari);


    readln; // Supaya layar console tidak langsung menutup

end.