Надо , решите ! тема-логические операции (используя логич.умножение и сложение) расписать (avb c черточкой наверху)λa с черточкой наверху "

Решение во вложении.я начертила и таблицу истинности и логическую схему,если что не понятно-обращайтесь : )

var masiv: array[1..10000] of longint; i: longint;

begin

    (n = konetz massiva)

    for i: =1 to n do

        if masiv[i]=> 100 then

              begin

                    masiv[i]: =round(masiv[i]/100);

                    write(masiv[i],' m | ');

              end else

              begin

                  write(masiv[i],' cm | ');

              end;

readln;

end;

 

var a: array[1..250] of string; size: real; i,n: integer; text: string; begin    writeln('daite n'); readln(n);     for i: =1 to n do        begin              readln(size);               if (size> 1024) or (size=1024) then                      begin                            size: =size/1024;                             str(size: 0: 2,text);                             a[i]: =text+' kb';                             text: =''; size: =0;                       end else                begin                          str(size,text); a[i]: =text+' bytes'; text: =''; size: =0;                 end;           end;   for i: =1 to n do write(a[i],' '); readln; end.