Latihan 16 Free Pascal Console

program Latihan16;

{$mode objfpc}{$H+}

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

var

  Nama: string;
  Alamat: string;
  KTP: string;
  TanggalLahir: string;

begin

  write('Silahkan menuliskan nama mu: ');
  readln(Nama);

  write('Silahkan menuliskan alamat anda: ');
  readln(Alamat);

  write('Silahkan masukan nomer KTP anda: ');
  readln(KTP);

  write('Silahkan masukan tanggal lahir anda: ');
  readln(TanggalLahir);

  writeln;

  writeln('Card:');

  writeln('-----------------------------------------');
  writeln('| Nama           :   ',   Nama);
  writeln('| Alamat         :   ',   Alamat);
  writeln('| KTP            :   ',   KTP);
  writeln('| Tanggal Lahir  :   ',   TanggalLahir);
  writeln('------------------------------------------');

  writeln('Tekanlah tombol ENTER untuk menutup');
  readln;




end.