Latihan 18 Free Pascal Console

program Latihan18;

{$mode objfpc}{$H+}

uses

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

var
     nama: string;

begin
       // Source code untuk menjadikan tulisan menjadi huruf besar semua


       write('Silahkan menulis nama: ');
       readln(nama);

       Nama:=UpperCase(nama);

       writeln('Nama anda adalah: ', nama);

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

end.