Имеется кубик, ** гранях которого цифры от 1 до 6. За сколько бросков игрок наберет более...

Question

Имеется кубик, на гранях которого цифры от 1 до 6. За сколько бросков игрок наберет более 21 очка?

Answer 1

Var
 a,n,i,m:longint;
begin
 randomize;
 m:=22;
 while m>0 do
 begin
  a:=random(6)+1;
  dec(m,a);
  inc(i);
 end;
 writeln(i);
end.