Latihan 17 Free Pascal Console

program Latihan17;

{$mode objfpc}{$H+}

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


var

  NamaAnda: string;
  Ayah: string;
  Kakek: string;
  NamaLengkap: string;


begin

  write('Silahkan menuliskan nama awal anda : ');
  readln(NamaAnda);

  write('Silahkan menuliskan nama ayah anda : ');
  readln(Ayah);

  write('Silahkan menuliskan nama kakek anda : ');
  readln(Kakek);

  NamaLengkap:= NamaAnda + ' ' + Ayah + ' ' + Kakek;

  writeln('Nama lengkap anda adalah: ', NamaLengkap);


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



end.