Latihan 24 Free Pascal Console

program Latihan24;

{$mode objfpc}{$H+}

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


var

  Line: string;
  Part: string;

begin

  Line:='Hello World';

  Part:=Copy(Line, 5, 5);

  writeln(Part);

  writeln('Tekanlah tombol ENTER untuk menutup');

  readln;





end.