Latihan 2 Free Pascal Console

program project1;

{$mode objfpc}{$H+}

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

var

  Meal: Byte;

begin

  Writeln('Selamat Datang Di Rumah Makan Simpang 4. Silahkan Memilih Pesanan Anda');

  Writeln('1 - Ayam       (10$)');
  Writeln('2 - Ikan       (7$)');
  Writeln('3 - Daging Sapi       (8$)');
  Writeln('4 - Salad  (2$)');
  writeln('5 - Orange Juice  (1$)');
  writeln('6 - Milk   (1$)');
  writeln;

  write('Please enter your selection: ');

  readln(Meal);

  case Meal of

  1: writeln('Anda telah memesan Ayam, ', ' ini akan membutuhkan waktu sekitar 15 menit');

  2: writeln('Anda telah memesan ikan, ', ' ini akan membutuhkan waktu 12 menit');

  3: writeln('Anda telah memesan daging sapi, ', ' ini akan membutuhkan waktu 18 menit');

  4: writeln(' Anda telah memesan salad, ', ' ini akan membutuhkan waktu 5 menit');

  5: writeln(' Anda telah memesan jus Jeruk, ',' ini akan membutuhkan waktu 2 menit');

  6: writeln(' Anda telah memesan Susu, ini akan membutuhkan waktu 1 menit');


  else

    writeln('Input Salah');

    end;

  write('Tekanlah tombol ENTER untuk menutup');

  readln;



end.