(HELP) programpascal sebuah salon asmirandah di jalan raya tonjong-pinangraja no.55 mempunyai ketentuan: -Jika yang melakukan perawatan adalah member, maka bera

program salon;

uses wincrt;

const
member : [0..2] of string = ('sia','sibe','sice');

var
i,j : integer; s:string; iyamember, diskon:boolean;
begin
writeln('masukkan nama pengunjung');
readln(s);
writeln('ambil berapa perawatan?');
readln(j);
iyamember := false;
repeat
iyamember := member[i] = s;
inc(i);
until iyamember or (i = length(member)-1);
diskon := iyamember or ((not iyamember) and (j>=3));

if diskon then
writeln('pelanggan ',s,' mendapat diskon 10)
else
writel ('pelanggan ',s,' tidak mendapat diskon);
end.

{maaf kalau ada eror, aku ngetiknya di hp}