program belanja;
uses wincrt;
var
i,b:byte;
nm,nmbh,nmsyr:array [1..50]of string;
begin
writeln('========================================');
writeln('TUGAS ALGORITMA PEMROGRAMAN KOMPUTER I');
writeln(' OLEH: I');
writeln('1.RINA NURMARIANA [4112309008] I');
writeln('2.DIVA ARISTA [4112309011] I');
writeln('3.DANIAR SARI NASTITI [4112309013] I');
writeln('4.ROHMAH MUGI RAHAYU [4112309021] I');
writeln('========================================');
WRITELN;
writeln('Warung Bu Joko');
writeln('__________________________________');
write('MASUKKAN DATA=');readln(b);
for i:=1 to b do
begin
writeln('data ke-',i);
writeln;
write('nama pengunjung=');readln(nm[i]);
write('nama buah [1. apel/2. durian]:');readln(nmbh[i]);
write('jenis sayur[1. sawi/2. bayam]:');readln(nmsyr[i]);
end;
writeln;
writeln('warung bu Joko');
writeln('============================================================');
writeln('NO NAMA PENGUNJUNG NAMA BUAH Jenis sayur');
writeln;
for i:=1 to b do
begin
if nmbh[i]='1' then
nmbh[i]:='apel'
else
nmbh[i]:='durian';
if nmsyr[i]='2' then
nmsyr[i]:= 'sawi'
else
nmsyr[i]:='bayam';
end;
for i:=1 to b do
begin
writeln(i:1,nm[i]:9,nmbh[i]:10,nmsyr[i]:18);
end;
writeln('===========================================================');
readln;
end.
