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
9 months ago
|
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.
|