10 lines
208 B
ObjectPascal
10 lines
208 B
ObjectPascal
// Бросание кубиков
|
|
|
|
var k1,k2: integer;
|
|
|
|
begin
|
|
k1 := Random(1,6);
|
|
k2 := Random(1,6);
|
|
writeln('Очки на кубиках: ',k1,' ',k2);
|
|
writeln('Сумма очков: ',k1+k2);
|
|
end. |