label 1;
label 2;
var
c:char;
x:integer;
s,s1:string;
begin
1:writeln('Please input "shitou" or "jiandao" or "bu"');
readln(s);
if(s<>'shitou')and(s<>'jiandao')and(s<>'bu')then //判斷輸入
begin
writeln('Input wrong!Please input again');
goto 1;
end;
randomize;
x:=random(3)+1; //隨機函數,計算機生成
case x of
1:s1:='shitou';
2:s1:='jiandao';
3:s1:='bu';
end;
if((s='shitou')and(s1='jiandao'))or((s='jiandao')and(s1='bu'))
or((s='bu')and(s1='shitou'))then //判斷贏
begin
writeln(s1);
writeln('You are win!');
end
else if s=s1 then //判斷平局
begin
writeln(s1);
writeln('It ends in a draw');
end
else //沒有贏也沒有平局則是輸
begin
writeln(s1);
writeln('You are lose');
end;
2:writeln('Would you like to play again?Please input "y" or "n"'); //是否再來
readln(c);
if c='y' then goto 1
else if c='n' then exit
else begin writeln('Input wrong!Please input again');goto 2;end;
end.