Latihan 28 Free Pascal Console

program Latihan28;

{$mode objfpc}{$H+}

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

var

  Line: string;




begin

   write('Silahkan memasukan kata yg mau di hapus: ');
   readln(Line);

   delete(Line, 3, 3);

   writeln(Line);

   writeln('Tekan tombol ENTER untuk menutup');

   readln;


end.