
Помогите добавить дополнительное условие, не пойму как его сформулировать.
Вот сама задача: **
Добрый день, уважаемые знатоки! Недавно во всем известной игре «Кто? Как? Куда?» команда
Белозёра Борисова потерпела поражение от команды телеслушателей со счётом x : y. Теперь Белозёр как опытный капитан хочет проанализировать игру, для этого ему нужно знать, как могла бы
пойти игра, если она завершилась со счетом x : y. Напомним, что в этой игре команда знатоков отвечает на вопросы команды телеслушателей. При правильном ответе очко присуждается знатокам,
иначе — телеслушателям. Игра начинается со счёта 0 : 0 и продолжается до тех пор, пока одна из
команд не наберёт k очков. Таким образом, в игре Белозёра было сыграно всего x + y вопросов, и
одна из команд набрала ровно k очков.
Выведите любой возможный вариант хода игры, завершающейся со счётом x : y, в виде счёта
после каждого вопроса. Вам не задано число k, вы его и так можете легко вычислить.
У Белозёра всё хорошо с памятью, и он гарантирует, что счёт корректный, и решение существует.
Также он гарантирует, что в игре был задан хотя бы один вопрос.
**Формат входных данных
В единственной строке заданы два целых числа, x и y (0 ⩽ x, y ⩽ 1000, x ̸= y) — счёт, с которым
завершилась игра.
Формат выходных данных
В x + y строках выведите по два целых числа, разделённых знаком двоеточие (:), — счёт после
каждого вопроса. Вы можете выбрать и вывести любой ход матча, который заканчивается со счетом
x : y.
Примеры
Ввод:
3 4
Вывод:
1:0
2:0
2:1
2:2
3:2
3:3
3:4
Ввод:
5 1
Вывод:
1:0
2:0
3:0
4:0
4:1
5:1
Проблема в том, что в моем коде счет повторяется, типа 8:8 8:8 8:8 подрят. Как это условие вставить?
Вот сам код:
program a;
var x,y,k,x1,y1: integer;
n:byte;
begin
randomize;
readln(x,y);
k:=x+y;
repeat
n:=random(2);
if (n=0)and(x1<>x)then
x1:=x1+1;
if (n=1)and(y1<>y)then
y1:=y1+1;
writeln(x1,':',y1);
until(x1+y1=k);
end.



