Latihan 5 Console Free Pascal

program Latihan5;

{$mode objfpc}{$H+}

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


var

  Key: Char;
begin

  write('Silahkan memasukan huruf apa saja dalam bahasa Inggris: ');
  readln(key);
  writeln;

  case Key of

  'q', 'w', 'e', 'r', 't', 'y', 'u', 'i', 'o', 'p':

    writeln('Inilah huruf yang ada di baris kedua di keyboard');

  'a', 's', 'd', 'f', 'g', 'h', 'j', 'k', 'l':

    writeln('inilah huruf yang ada di baris ketiga di keyboard');

  'z', 'x', 'c', 'v', 'b', 'n', 'm':

    writeln('inilah huruf yang ada di baris keempat di keyboard') ;


  else

    writeln('huruf tidak dikenali');


  end;

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

end.