You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
26 lines
446 B
Plaintext
26 lines
446 B
Plaintext
program robin;
|
|
|
|
const cover = 1;
|
|
|
|
const robins_skill = 0;
|
|
|
|
const dogukan = 2;
|
|
|
|
var player : integer;
|
|
|
|
{ Prints 1 if Robin wins, 0 if it's a draw, -1 if robin loses }
|
|
procedure smash(at : integer; opponents_skill : integer) ;
|
|
BEGIN
|
|
if (robins_skill > opponents_skill) then
|
|
writeln(1)
|
|
else
|
|
if (robins_skill = opponents_skill) then
|
|
writeln(0)
|
|
else
|
|
writeln(-1)
|
|
END;
|
|
|
|
BEGIN
|
|
player := dogukan;
|
|
smash(cover, player)
|
|
END. |