Latihan 3 Free Pascal Console

program Latihan3;

{$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 Restoran Simpang 4, silahkan memilih makanan anda');

  writeln('1 - Ayam       (10$)');
  writeln('2 - Ikan       (7$)');
  writeln('3 - Daging Sapi       (8$)');
  writeln('4 - Salad  (2$)');
  writeln('5 - Jus Jeruk     (1$)');
  writeln('6 - Susu          (1$)');

  writeln;

  write('Silahkan masukan pilihan anda: ');

  readln(Meal);


  if Meal = 1 then

  writeln('Anda telah memesan Ayam, ini membutuhkan waktu 15 menit')

  else

    if Meal = 2 then

    writeln('Anda telah memesan Ikan, ini membutuhkan waktu 12 menit')

    else

      if Meal = 3 then

      writeln('Anda telah memesan daging sapi, ini membutuhkan waktu 18 menit')

      else

        if Meal = 4 then

        writeln('Anda telah memesan Salad, ini akan membutuhkan waktu 5 menit')

        else

          if Meal = 5 then

          writeln('Anda telah memesan Jus Jeruk,' ,' ini membutuhkan waktu 2 menit')

          else

            if Meal = 6 then

            writeln('Anda sudah memesan Susu, ini akan membutuhkan waktu 1 menit')


            else

              writeln('Anda memasukan data yang salah');

  readln;

end.