количество выпавших чисел

[street-walker]

задача состоит в подкидывании игральных костей,необходимо создать массив из 6 элементов в котором будут записаны количество выпадений каждой стороны кости.выпадение числа точек кости в виде генератора случайных чисел...

[HoLToFF]

Для того, чтобы подкинуть кость нужно будет вводить "y".

var M:array[1..6] of integer;
   i:integer; o:char;
begin
for i:= 1 to 6 do M[i]:=0;
repeat
  write('Podkinut kost''?(y/n)');
  readln(o);

  if o = 'y' then
  begin
  i:=random(6)+1;
  inc(M[i]);
  writeln('Vipalo ',i);
  ClrScr;
  end;
until (o <> 'y');
writeln('Kolichestvo vipadenui');
  for i:= 1 to 6 do
  writeln(i,' vipalo ',m[i],' raz');
readln;
end.