1 1
2 3
6 2
5 3
4 5
Объяснение:
###
var a,b:integer;
while a + b < 10 do
begin
a := Random(1,6);
b := Random(1,6);
if a+b >= 10 then break
else
println(a,b);
end;
