Напишите программу, что бы закрасить клетки​

program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.

не? я не уверен

в десятичной:

45 = (4*8)^1 + (5*8)^0 = 32 + 1 = 33

106 = (1*8)^2 + (0*8)^1 + (6*8)^0 = 64 + 1 = 65

в двоичной:

45 = 101101

106 = 1101010

var a: array [1..16] of integer;

i,s,c,d: integer;

begin

  randomize;

  read(c,d);

  for i : = 1 to 16 do begin

      a[i]: = random(d+c) - c;

      if a[i]> 0 then s: = s + a[i];

  end;

  writeln(s);

end.

ошибка в том что натуральный логарифм (-1) не существует

program summa; uses crt; var n,i: integer; s: real;

p1,p2: integer; begin clrscr; writeln ('vvedite n'); readln (n); s: =0;

p1: =-1;

p2: =2; for i: =1 to n do

begins: =s+p1/p2;

p1: =-p1;

p2: =p2*2;

end; writeln ('s=', s); readln; end.