Напишите место точек чтобы получился пятиугольник. повтори 5 раз (вперед 100 направо

Var i,k,j,n,ost,p: integer;     x,s: string; begin      read(s);       n: =strtoint(s);       for j: =11 to 36 do        begin            x: ='';             p: =n;             k: =0;             while p< > 0 do            begin                  ost: =p - (p div j)*j;                   p: =p div j;                   k: =k+1;                   if (ost > 9) and (ost < =36) then           x: =chr(ost+55)+x                  else           x: =inttostr(ost)+x;             end; ;           writeln(x,'   ',j,' ss');         end; end.

716 - 512 = 204       1 204- 128=76         1 76 - 64 =12         1 от 12 нельзя отнять следующую степень двойки - 32, поэтому в нашем двоичном числе на месте этого разряда будет 0,   и 16 от 12 отнять нельзя, значит снова 0.  12- 8 =4         1, 4 - 4 = 0       1 , а дальше все оставшиеся разряды нули. в разряде двоек - 0, в разряде единиц тоже 0. итого. 111001100 наше двоичное число.