本题90分的做法
这题要拼RP的呀~~~
var
s,i:longint;
begin
randomize;
readln(s);
case s of
16:writeln('uigdrosolsgryai');
10:writeln('sdioawniuh');
6:begin
i:=random(100)+1;
if i mod 2=0 then writeln('dsocsu')
else writeln('gdopor');
end;
else write('s');
end;
end.