PROCEDURE PASCAL

uses wincrt;
var
   i    :integer;
   n    :byte;
procedure garis;
 begin
  for i:= 1 to 70 do
   begin
    write('-');
   end;
 end;

procedure garis2;
 begin
  for i:= 1 to 70 do
   begin
    write('=');
   end;
 end;

procedure penyakit;
 begin
  writeln('Hanya ada obat untuk penyakit dibawah ini');
   writeln('----------------------------------------------------------------');
   writeln('| No | Nama Penyakit | Total obat | Nama obatnya | Nama dokter |');
   writeln('================================================================');
   writeln('| 1  | kanker        |     3      |  ditetapkan  | hadi        |');
   writeln('| 2  | pilek         |     1      |     oleh     |             |');
   writeln('| 3  | batuk         |     2      |    dokter    | bolang      |');
   writeln('| 4  | DBD           |     3      | yang merawat |             |');
   writeln('----------------------------------------------------------------');
 end;

procedure input;
var
   m            :array [1..20] of integer;
   np, no,kit,rso,dok       :string;
   obt,ttlbt          :byte;
 begin
  penyakit;
  garis2;
  writeln;writeln;
  write('Nama pembeli                     : ');readln(np);
  write('Nama penyakit yang diderita      : ');readln(kit);
   if kit='kanker' then ttlbt:=3;
    if kit='pilek' then ttlbt:=1;
     if kit='batuk' then ttlbt:=2;
      if kit='DBD' then ttlbt:=3;
  write('Total obat                       : ',ttlbt);readln;
  write('Nama dokter yang merawat         : ');readln(dok);
   if ('kit'='kanker') and (dok='hadi') then; writeln('Nama resep yang diberikan        : paramex paracetamol dan bodrex ');
    if ('kit'='pilek') and (dok='hadi') then; writeln('Nama resep yang diberikan        : neozep');
     if ('kit'='batuk') and (dok='hadi') then; writeln('Nama resep yang diberikan       : paracetamol dan paramex');
      if ('kit'='DBD') and (dok='hadi') then; writeln('Nama resep yang diberikan        :  neozep dan sangobion');

 end;

 begin
 garis;
 writeln;
 input;
 readln;

 end.