Penggunaan Berulang Nilai Sebuah Variabel

program Latihan95;

{$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);

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

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

  writeln ('Tahun depan: ', Tahun);

  readln;

end.