konsep pemograman pascal

contoh konsep pemograman pascal
-----------------------------------------------------------------
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  kode : char ;
  hrg, brt, total : integer ;

begin
  write ('masukkankode kualitas : '); readln (kode);
  //seleksi kondisi dng  case of
  case kode of
  'A', 'a':// ([,] koma) sama fungsi'a dg OR pd fungi IF
  hrg := 1000; //statemen
  'B', 'b':
    hrg := 750;
  'C', 'c':
    hrg := 500;
  else
   hrg := 0 ;
  end;
  writeln ('harga per kg : ', hrg);
  write ('berat : ');
  readln (brt);
  total := brt*hrg ;
  writeln ('total adalah : ', total);
  readln ;

end.