Составе программу в паскале для изображения рисунка​

 Program abitura;

Uses Crt;

var n,i,r,n1,n2,n3:integer;

begin

     clrscr;

     write('Введите количество абитуриентов:'); 

 

     readln(n);

     for i:=1 to n do

            begin

                 writeln('Абитуриент номер ' ,i  ); 

                 write('Введите оценку за первый экзамен'); 

 

                  readln(n1);

                  write('Введите оценку за второй экзамен'); 

                  readln(n2);

                  write('Введите оценку за третий экзамен'); 

                  readln(n3);

                  r:=n1+n2+n3;

                  if (r>=13) then writeln('Вы зачислены на дневное отделение '); 

 

                 if (r>10) and (r<12)  then writeln('Вы зачислены на вечернее отделение ');  

 

                 if (r>=8) and (r<=9)  then writeln('Вы зачислены на заочное отделение ');

                  if  (r<8)  then writeln('Вам отказанно в зачислении ! ');          

            end;   

     readkey;  

 

 end.

1) 73=1001001 (2)         2)91=1011011 (2)
     44=101100 (2)               28=11100 (2)

+1001001                            -1011011
     101100                                  11100
                             
  1110101= 117 (10)             111111=63 (10)

 

3)27=11011 (2)

    5=101 (2)
    *11011

          101

   

  +  11011

    00000

  11011

 

10000111=135

 

4)70=1000110 (2)

    7=111 (2)

 - 1000110 | 111

     111         |
    1010= 10 (10)

         -111

          111

           

               0