Выполнить действия 1. 100111+10101 в двоичной системе счисления​

uses GraphABC;

begin

SetWindowWidth(800);     //ширина окна программы

SetWindowHeight(600);    //высота окна программы

SetPenWidth(5);          //толщина пера

setpencolor(clblue);

Rectangle(1, 600, 200,450);

Rectangle(150, 300, 200,450);

Line(1, 450, 150,450);

Line(150,450, 75,150);

Line(75,150, 1, 450 );

Line(200, 197, 400,197);

Line(400, 197, 300,107);

Line(300, 107, 200,197);

Rectangle(200, 600, 400,200); //дом

Rectangle(400, 600, 600,450); //дом

Rectangle(450, 300, 400,450); //дом

Line(447, 447, 600,447);

Line(600,447, 520,150);

Line(520,150, 447, 447);

Circle(300,300,50);

Circle(520,130,25);

Circle(75,130,25);

end.

Uses
  Crt;
Var
  i, N, kol: byte;
  sum_rost, sr_rost: real;
  team: array[1..100] of real;
Begin
  sum_rost := 0.0;
  sr_rost := 0.0;
  kol := 0;
  write('Введите количество членов команды');
  read(N);
  writeln('Введите рост каждого члена команды');
  for i := 1 to N do
    begin
      readln(team[i]);
      sum_rost := sum_rost + team[i];
    end;
  sr_rost := sum_rost / N;
  for i := 1 to N do
    if (team[i] > sr_rost) then
      kol := kol + 1;
  writeln('Количество членов команды, рост которых превышает средний по команде (', sr_rost:4:2, ')');
  write(' равно ', kol);
End.

Я надеюсь надо было на паскале написать?)