program lenivy_jim;
uses Crt;
var i,l,q,krok,rozsah,dom,pole,phmd,den : integer;
begin
  Clrscr;
  randomize;
  write('Zadaj dlzku kroku: '); readln(krok);
  write('zadaj rozsah pola, parny nasobok ',krok,': ');
  readln(rozsah);
  write('zadaj pocet dni ktore to bude robit: ');
  readln(den);
  dom:=0;
  pole:=0;
  for i:=1 to den do begin
    l:=(rozsah div 2);
    phmd:=0;
    while ((l<>0) and (l<>rozsah)) do begin
      q:=random(2); phmd:=phmd+1;
      if q=1 then l:=l+krok
        else l:=l-krok;
    end;
    if l=0 then dom:=dom+1
      else pole:=pole+1;
    writeln('Dnes hadzal kockou ',phmd,' krat.');
  end;
  writeln('Doma bol ',dom,' krat. Na poli bol ',pole,' krat.');
  readln;
end.
