求PASCAL程序

var
c1,c2,c3:char;
begin
read(c1,c3,c2);
if c1=c2 then write('Equ')
else if (c1='S') and (c2='R') or (c1='R') and (c2='P') or (c1='P') and (c2='S')
then write('Fall')
else write('Win')
end.

用if语句做吧 游戏者有没有规定几位？

两位游戏人的程序：
program stjzb;
var
f,s:char;
begin
writeln('Input the first choice(s,r,p):');
readln(f);
writeln('Input the second choice(s,r,p):');
readln(s);
case f of
's':begin if s='r' then write('The second one is the winner.')
else if s='p' then write('The first one is the winner.') else write('Tied!!')
end;
'r':begin if s='s' then write('The first one is the winner.')
else if s='p' then write('The second one is the winner.') else write('Tied!!'