10 lines
170 B
ObjectPascal
10 lines
170 B
ObjectPascal
// Áðîñàíèå êóáèêîâ
|
|
|
|
var k1,k2: integer;
|
|
|
|
begin
|
|
k1 := Random(1,6);
|
|
k2 := Random(1,6);
|
|
writeln('Î÷êè íà êóáèêàõ: ',k1,' ',k2);
|
|
writeln('Ñóììà î÷êîâ: ',k1+k2);
|
|
end. |