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

Program kosti;
Uses
Crt;
Var
dice1: Integer; { число, выпавшее на 1-ой кости }
dice2: Integer; { число, выпавшее на 2-ой кости }
count: Integer; { количество бросаний }
i: Integer; { счетчик цикла }
cumma: Integer; { сумма выпавших очков }
vsesum: Integer;{ все суммы бросков }
Begin
ClrScr;
WriteLn (‘Введите количество бросаний’);
ReadLn (count);
randomize;
cumma:=0;
vsesum:=0;
for i := 0 to count-1 do
begin

dice1 := random(5)+1;
dice2 := random(5)+1;
cumma:=dice1+dice2;
WriteLn (dice1, ‘:’, dice2, ‘(‘,cumma, ‘)’);
vsesum:=vsesum+cumma;
end;

WriteLn (‘Общая сумма за все броски=’,vsesum);

Repeat

Until (keypressed);

end.