Program Penampil data diri Pascal

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
nama, alamat, tempat_lahir, agama, no_hp: string;
tanggal_lahir : string;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  readln;
  readln;
  writeln('  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ');
  writeln('  @@@   Program Penampil Data Diri   @@@ ');
  writeln('  @@@    Muhammad Husnu Dzihan TIF   @@@ ');
  writeln('  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ');
    readln;
  write(' Masukkan Nama : ');
    readln(nama);
  write(' Masukkan Alamat : ');
    readln(alamat);
  write(' Masukkan Tempat Lahir : ');
    readln(tempat_lahir);
  write(' Masukkan Tanggal Lahir : ');
    readln(tanggal_lahir);
  write(' Masukkan Agama : ');
    readln(agama);
  write(' Masukkan No Hp : ');
    readln(no_hp);
  writeln;
  writeln(' Assalamualaikum Nama Saya ',nama,' !!!! Saya Tinggal Di ',alamat, ' Tempat Lahir Saya Di ',tempat_lahir, ' Tanggal ',tanggal_lahir, ' Agama saya ',agama, ' dan Nomer Handphone saya : ',no_hp );
    readln;


end.


Hasilnya :