Latihan 19 Free Pascal Console

program Latihan19;

{$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 kecil semua

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

  nama:=lowercase(nama);

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

  writeln('Tekan tombol ENTER untuk menutup');

  readln;



end.