Latihan 20 Free Pascal Console

program Latihan20;

{$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 namamu: ');
  readln(NamaAnda);

  if Pos('a', NamaAnda) > 0 then

  writeln('Nama anda mengandung huruf a')
  else
    writeln('Nama anda tidak mengandung huruf a');

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


end.