Latihan 25 Free Pascal Console

program Latihan25;

{$mode objfpc}{$H+}

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


var

  Month: string;
  ShortName: string;


begin

  write('Silahkan tuliskan nama bulan secara lengkap, contoh: Januari: ');

  readln(Month);


  ShortName:=Copy(Month, 1, 3);

  writeln(Month, ' disingkat sebagai : ', ShortName);

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


end.