Latihan 12 Free Pascal Console

program Latihan12;

{$mode objfpc}{$H+}

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


// Program Loop untuk restoran

var


Selection: Char;
Price: Integer;
Total: Integer;


begin

  Total:= 0;

  repeat

    writeln('Selamat datang di restoran 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 - Jus Jeruk (1 $)');
    writeln('6 - Susu      (1 $)');

    writeln('X - nothing');
    writeln;

    write('Silahkan masukan pilihan anda: ');
    readln(Selection);

    case Selection of

    '1' : begin

      writeln('Anda telah memesan Ayam, ini akan membutuhkan waktu 15 menit');
      Price:=10;

      end;

    '2' : begin

      writeln('Anda telah memesan Ikan, ini akan membutuhkan waktu 12 menit');
      Price:=7;

      end;

    '3' : begin

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


      end;

      '4' : begin

        writeln('Anda sudah memesan Salad, ini akan membutuhkan waktu selama 5 menit');
        Price:=2;

           end;

      '5' : begin

        writeln('Anda sudah memesan Jus Jeruk, ini membutuhkan waktu selama 2 menit');
        Price:=1;

        end;


        '6' : begin

          writeln('Anda sudah memesan Susu, ini membutuhkan waktu selama 1menit');
          Price := 1;

          end;

          else

          begin

              writeln('Anda memasukan data yg salah');
              Price:=0;
              end;
          end;

        Total:= Total + Price;

        until(Selection = 'x') or (Selection = 'X');

        writeln('Total Price   = ', Total);

        write('Tekanlah tombol ENTER untuk menutup');

        readln;





end.