Logická hra

Hra Kdo bere poslední, prohrál


 uses Crt;
 var i, bere, pocet:integer;
 begin
   Randomize;
       { Píše text v náhodných barvách }
     i:= (Random(5)+6);
     writeln('Mam', i,'sirek');
     writeln('Kolik beres Ty *1-2*');
     readln (bere);
     pocet:= i-bere;
     writeln('zbylo', pocet);
     if pocet mod 2 = 1 then bere := 1 else bere := 2;
     pocet:= i-bere;

     readln (bere);
 end.