Repetisi3(Contoh-Variable-Character)

program repetisi3;

{$mode objfpc}{$H+}

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

{$R *.res}
var
  c: Char;
begin
  c:= 'M';
  Writeln('Teks yang terlihat adalah: ', c);
  Writeln('Tekan Enter untuk Keluar');
  Readln;
end.