Latihan 22 Free Pascal Console

program Latihan22;

{$mode objfpc}{$H+}

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



var

     nama : string;
     jumlah : integer;
     begin

       nama:='steven';
       jumlah:=length(nama);
       writeln('jumlah huruf: ', jumlah);

       writeln('tekan tombol enter untuk menutup');
       readln;


end.