program array ayam goreng

PROGRAM AYAM_GORENG;
uses wincrt;
var
i,N:byte;
jenis,kdjenis        :array [1..50]of string;
banyak,jmlharga,harga:array [1..50]of real;
totb,ppn,totjml,total:real;
ULANG                :STRING;
begin
ULANG:= 'YA';
WHILE (ULANG= 'YA') OR (ULANG= 'ya') DO
BEGIN

clrscr;
writeln('       PROGRAM AYAM GORENG PUTERA BATAM');
writeln('       ===================================');
writeln('       Kode    Jenis      Harga Perbungkus    ');
writeln('       ===================================');
writeln('        D      DADA       7000 ');
writeln('        S      SAYAP       6000 ');
writeln('        P      PAHA       5000 ');
writeln('       =================================');
WRITELN;
write('INPUT  JUMLAH JENIS AYAM : ');readln(N);
for i:=1 to N do
begin
writeln('JENIS AYAM KE- ',i);

write('KODE JENIS AYAM [D/S/P]     : ');readln(kdjenis[i]);
write('JUMLAH BELI/ PERBUNGKUS      : ');readln(banyak [i]);
end;
writeln;
clrscr;
WRITELN;
writeln('               PROGRAM AYAM GORENG PUTERA BATAM');
writeln('======================================================================');
writeln('|NO|  |JENIS AYAM|  |HARGA SATUAN|  |BANYAK BELI|  |JUMLAH HARGA|   ');
WRITELN('----------------------------------------------------------------------');
totb:=0;
for i:=1 to N do

begin
if (kdjenis[i]='D')  then
begin
jenis[i]:='DADA';
harga[i]:=7000;
end;


if kdjenis[i]='P'  then
begin
jenis[i]:='SAYAP';
harga[i]:=6000;
end;

if kdjenis[i]='S' then
begin
jenis[i]:='PAHA';
harga[i]:=5000;
end;

jmlharga[i]:=harga[i]*banyak[i];
totb       :=totb+jmlharga[i];
ppn        :=totb*0.1;
totjml     :=totjml+banyak[i];
total      :=totb+ppn
end;

for i:=1 to N do
begin
writeln(i:2,jenis[i]:12,harga[i]:17:0,banyak[i]:15:0,jmlharga[i]:17:0);
end;
writeln('========================================================================');
writeln(' JUMLAH AYAM : ',totjml:2:0);
writeln(' JUMLAH BAYAR  : ',totb:2:0);
writeln(' PPN 10 %      : ',ppn:2:0);
writeln(' TOTAL BAYAR   : ',total:2:0);
writeln;
writeln('Silahkan Bayar - Terimakasih');
WRITE('INPUT LAGI DAFTAR AYAM GORENG TEKAN YA= ');READLN(ULANG);
END;
readln;
donewincrt;
end.