Проблема с электронной таблицей в программе openoffiseпри вводе формулы в таблицу g она должна выдать ответ, появляются решотки (###)​

скопируй закрой программу вставь сори если не (

Var i,k,n: integer;     a: array[1..10] of integer; begin   k: =0;     randomize;   writeln('число:   '); readln(n);   writeln('последовательность из 10 элементов');   for i: =1 to 10 do   begin     a[i]: =random(50);     write(a[i],' ');     if a[i]=n then k: =k+1;   end;   writeln;   if k> 0 then         writeln('число ',n,' встречается ',k,' раз')   else       writeln('числа ',n,' нет в последовательности');   readln; end.

Вдвоичной системе: 1243(10)=2^10+2^7+2^6+2^4+2^3+2^1+1 = 1024+128+64+16+8+2+1 = 1243(10) =10011011011(2) в восьмиричной системе:   разбиваете двоичное представление на группы по 3 бита справа налево 011   = 3 011   = 3 011   = 3 10   = 2 тогда в восьмиричной системе: 2333(8) = 2*8^3+3*8^2+3*8^1+3 = 1024+192+24+3=1243(10) в шестнадцатиричной системе:   разбиваете двоичное представление на группы по 4 бита справа налево 1011 = b = 11(10) 1101 = d(16) = 13(10) 100   = 4 тогда в шестнадцатиричной системе 4db(16) = 4*16^2+13*16^1+11 =1024+208+11=1243(10)