沙发

IF PLAY='4' then begin
WRITELN('Welcome to the shop! What do you want to buy?');
writeln(' 1 2 3 4 ');
writeln(' HP sweet EXP sweet NQ sweet I do not ');
writeln(' 300 money 500 money 200 money want to buy');
writeln(' HP+200 EXP+800 NQ+100 anything. ');
S:=readkey;
IF S='1' THEN BEGIN
WRITELN('How many do you want to buy?');
SN:=readkey;
val(SN,SM);
HF:=SM*300;
IF (MONEY<HF) then writeln('Sorry,you do not have enough money.')
else begin
MONEY:=MONEY-HF;
HS:=HS+SM;
WRITELN('OK!');
END;
END;
IF S='2' THEN BEGIN
WRITELN('How many do you want to buy?');
SN:=readkey;
val(SN,SM);
HF:=SM*500;
IF (MONEY<HF) then writeln('Sorry,you do not have enough money.')
else begin
MONEY:=MONEY-HF;
EXP:=EXP+(500*SM);
WRITELN('OK!');
END;
END;
IF S='3' THEN BEGIN
WRITELN('How many do you want to buy?');
SN:=readkey;
val(SN,SM);
HF:=SM*200;
IF (MONEY<HF) then writeln('Sorry,you do not have enough money.')
else begin
MONEY:=MONEY-HF;
NS:=NS+SM;
WRITELN('OK!');
END;
END;
IF S='4' THEN WRITELN('Thanks for your shopping.Bye-Bye!');
end;
IF PLAY='5' then MONEY:=MONEY+(trunc(random*10));
IF PLAY='6' THEN HALT;

插

大声告诉我这是几楼

顺序好像不对把7楼放最后好像就可以了