Latihan 23 Free Pascal Console

program Latihan23;

{$mode objfpc}{$H+}

uses

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


var

  nama: string;
  jumlah: integer;

begin

  // source code untuk menghitung jumlah huruf dari nama yg diinput

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

  jumlah:=length(nama);
  writeln('Jumlah huruf di nama: ', nama, ' adalah sebanyak: ', jumlah, ' kata');


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



end.