pertemuan 4, latihan biaya berobat

program biaya_berobat;
uses wincrt;
var

kod,nampas,namdok,klh:string[20];
jk:char;
linap,binap,bdok,tot:longint;
procedure nama_dokter;
begin
write('kode Pasien:');readln(kod);
write ('Nama Pasien:');readln(nampas);
write ('Jenis kelamin Pasien, L/P:');readln (jk);
write ('Keluhan pasien,umum,anak,gigi:'); readln(klh);
write ('Lama Menginap :');readln(linap);


if klh= 'umum' then
begin
namdok:= 'dr.budi';
bdok  := 30000;
end;

if klh='anak' then
begin
namdok:='dr.ilham';
bdok:=40000;
end;

if klh='gigi'then
begin
namdok:='dr.agus';
bdok:=50000;
end;
writeln ('Nama dokter:',namdok);
end;

procedure biaya_dokter;
begin
writeln('biaya dokter:',bdok);
binap:= bdok*linap;
writeln('biaya menginap:',binap);
tot:=binap+bdok;
writeln('total biaya:',tot);
end;

begin
nama_dokter;
biaya_dokter;
end.