var
a : integer;
b : integer;
begin
repeat
a := random(1, 9);
repeat
write('напишите свое число ');
readln(b);
if (9 < b) or (b < 1) then writeln('не мухлевать! число должно быть от 1 до 9');
until (9 >= b) and (b >= 1);
writeln('ваш друг написал ', a);
writeln('вы написали ', b);
if a=b then writeln('числа равны, переиграем...');
until a <> b;
case a-b of
1 : writeln('неудача, ваше число меньше на 1. Вам платить сегодня и завтра');
-1 : writeln('повезло, вше число больше на 1. Сегодня и завтра платит ваш друг');
2..8 : writeln('сегодня платит ваш друг, его число больше на ', a-b);
else writeln('сегодня платите вы, ваше число больше на ', b-a);
end;
end.