Напишите программку используя массивы.

var

   a : integer;

   b : integer;

begin

   repeat

       a := random(1, 9);

       repeat

           write('напишите свое число ');

           readln(b);

           if (9 lt; b) or (b lt; 1) then writeln('не мухлевать! число должно быть от 1 до 9');

       until (9 gt;= b) and (b gt;= 1);

       writeln('ваш друг написал ', a);

       writeln('вы написали ', b);

       if a=b then writeln('числа равны, переиграем...');

   until a lt;gt; b;

   case a-b of

       1    : writeln('беда, ваше число меньше на 1. Для вас уплачивать сейчас и завтра');

       -1   : writeln('подфартило, вше число больше на 1. Сегодня и завтра платит ваш друг');

       2..8 : writeln('сейчас уплачивает ваш друг, его число больше на ', a-b);

       else writeln('сейчас выплачивайте вы, ваше число больше на ', b-a);

   end;

end.