contoh program data pribadi(turbo pascal)

program nama_pribadi;
uses
  WinCrt;
  var
  nama:string[15];
  umur:string[3];
  tanggal_lahir:string[20];
  alamat:string[30];
begin
  Write('masukan nama anda         :  ');
  readln(nama);
  write('masukan umur              :  ');
  readln(umur);
  write('masukan tanggal_lahir     :  ');
  readln(tanggal_lahir);
  write('masukan alamat anda       :  ');
  readln(alamat);
  WRITELN;
  writeln;
  writeln('        <<>>');
  writeln;
  writeln('nama anda adalah           :  ',nama);
  write;
  write('umur SAYA adalah           :  ',umur);
  writeln;
  writeln('tanggal lahir saya adalah  :  ',tanggal_lahir);
  writeln('alamat saya adalah         :  ',alamat);
  readln;
  DONEWINCRT
  end.