Latihan 4 Program Consol Free Pascal

program project1;

{$mode objfpc}{$H+}

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

   var
Mark: Integer;
begin

  write('Silahkan masukan nilai muridnya: ');

  readln(Mark);

  writeln;

  case Mark of

  0 .. 39  : writeln('Nilai bagi murid: F');
  40 .. 49 : writeln('Nilai bagi murid: E');
  50 .. 59 : writeln('Nilai bagi murid: D');
  60 .. 69 : writeln('Nilai bagi murid: C');
  70 .. 84 : writeln('Nilai bagi murid: B');
  85 .. 100 : writeln('Nilai bagi murid: A');

  else

    writeln('Nilainya Salah');

    end;

write('Tekanlah tombol ENTER untuk menutup');

readln;





end.