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

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.

Ето рандомный ответ будет, на него невозможно дать правильный точно ответ
Можно кидать и 22 раза, а можно и за 4