Latihan 27 Free Pascal Console

program Latihan27;

{$mode objfpc}{$H+}

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

var

  Line: string;

  Sisip: string;

begin

  // source code untuk menginput kata diantara kalimat

  write('Silahkan menginput kata: ');

  readln(Sisip);

  Line:='Hello World';

  Insert(Sisip, Line, 7);

  writeln(Line);

  writeln('Tekan tombol ENTER untuk menutup');

  readln;


end.