Latihan 21 Free Pascal Console

program Latihan21;

{$mode objfpc}{$H+}

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


var

  NamaAnda: string;
begin

  write('Silahkan masukan nama anda: ');
  readln(NamaAnda);
  if Pos('a', LowerCase(NamaAnda)) > 0 then

  begin

    writeln('Nama anda mengandung huruf a');
    writeln('posisinya di nama anda: ',

    Pos('a', LowerCase(NamaAnda)));

  end

  else

  writeln('Nama anda tidak mengandung sebuah huruf');

  write('Tekanlah tombol ENTER untuk menutup');

  readln;


end.