Tugas Cafe DDP T_T

SEBELUMNYA DOWNLOAD DULU PROGRAMNYA

uses crt;
var nama,sandi,mkn,mnm:string;
jmkn,jmnm:integer;
hmkn,hmnm,total:real;
begin
clrscr;
write('Masukkan Username : ');readln(nama);
write('Masukkan Password : ');readln(sandi);
if (nama='admin') and (sandi='admin') then
begin
clrscr;
writeln('SELAMAT DATANG DI CAFE CERIA');
write('Masukkan nama makanan : ');readln(mkn);
write('Masukkan jumlah porsi : ');readln(jmkn);
write('Harga per porsi : ');readln(hmkn);
write('Masukkan nama minuman : ');readln(mnm);
write('Masukkan jumlah : ');readln(jmnm);
write('Harga per porsi : ');readln(hmnm);
total:=jmkn*hmkn+jmnm*hmnm;
readkey;
clrscr;
writeln('TAGIHAN :');
writeln('Makanan : ',mkn);
writeln('Jumlah : ',jmkn,' porsi');
writeln('Harga : ',hmkn:0:2);
writeln('Minuman : ',mnm);
writeln('Jumlah : ',jmnm,' gelas');
writeln('Harga : ',hmnm:0:2);
writeln('TOTAL BAYAR : ',total:0:2);
readkey;
end;
end.