Напишите код данной таблицы

  ответ надо продемонстрировать рисунком, я не умею на компьютере, поэтому рисую такую схему,как разместить зайцев в прямоугольной клетке.

з -это заяц,их должно быть 5:

                                                                                                        три зайца по углам и два у стенок по одному.

                  з                                        з                                    это для малышей,ее каждый ребенок знает.

                                                                з

                  з                        з

var a: array [1..9] of real;

s,p: real;

begin

  p: =1;

  s: =0;

  for i: = 1 to 9 do

  begin

      read(a[i]);

      s: = s+a[i];

      p: =p*a[i];

  end;

  writeln("summa=",s);

  writeln("srednee arefmeticheskoe=",s/n);

  writeln("proizvedenie=",p);

end.

var a,b,c,d: integer;

begin

  read(a,b,c,d);

  if (a*b*c*d mod 3 = 0) then

        writeln("pravda")

  else writeln("nepravda");

end.

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

begin

  randomize; {чтоб рандом был разный для каждого запуска програмы}

  for i: = 1 to 100 do

      if i mod 2 =0 then a[i] : = 2*random(100)+1; {формула нечетного числа}

      else a[i]: =2*random(100);

end.

есличто непонятно - пиши в сообщения, растолкую