Построить турбо паскаль "построение домика"

Program bifi; var i; integer; begin writeln('         *       '); writeln('       * *       '); writeln('     *   *     '); writeln('     *     *     '); writeln('     *         *   '); writeln('   *********    '); for i: =1 to 5 do writeln('   *       *   '); writeln('   *********   '); readln;   end.      

type cl = class

  a: integer;

  constructor create(b: integer);

  procedure setval(b: integer);

  function getval: integer;

  procedure sq;

end;

constructor cl.create(b: integer);

begin

  a : = b;

end;

procedure cl.setval(b: integer);

begin

  a : = b;

end;

function cl.getval: integer;

begin

  getval : = a;

end;

procedure cl.sq;

begin

  if a < 0 then

    writeln('a ^ 2 = ', a * a)

  else

    writeln('error');

end;

var

  obj: cl;

  a : integer;

begin

  write('a = ');

  readln(a);

  obj : = cl.create(a);

  obj.sq;

  readln;

  obj.destroy;

end.

система счисления — символический метод записи чисел, представление чисел с письменных знаков.

основание позиционной системы счисления равно количеству используемых в системе цифр. наименьшее возможное основание позиционной системы счисления — 2 (двоичная система), в которой используются только 0 и 1.

развернутая форма записи числа – это запись в виде разрядных слагаемых, записанных с степени соответствующего разряда и основания степени (основание счета).

f67d = f*16³ + 6*16² + 7*16 + d*16° = 15*4096 + 6*256 + 7*16 + 13*1 = 63101

f7aa = f*16^3 + 7*16^2 + a*16 + a*16^0 = 15*4096 + 7*256 + 10*16 + 10*1 = 63402

два примера расписал, следующие делаются по такому же принципу

1450=5200

-1450=-5200

1341=4929

-1341=-4929