(цифры после примеров это система счисления 2ичная)
1.
а) 1 101 100 000(2) + 10 110 110(2);
б) 101 110 111(2) + 1 000 100 001(2);
в) 1 001 000 111,01(2) + 100 001 101,101(2) ; г) 271,34(8) + 1 566,2(8); д) 65,2(16) + 3СА,8(16).
2. а) 1 011 001 001(2) - 1 000 111 011(2) ;
б) 1 110 000 110(2) – 101 111 101(2);
в) 101 010 000,101 11(2)- 11 001 100,01(2) ; г) 731,6(8) - 622,6(8); д) 22D,1(I6) - 123,8(16).
3. а) 1 011 001(2)*1 011 011(2) ; б) 723,1(8)*50,2(8); в) 69,4(16)*А,В(16).​

Программа выглядит примерно так

program n_1;  type    nazw = array[0..9] of String[15];  const    ed : nazw = ('ноль','один','два','три','четыре','пять','шесть','семь','восемь','девять');    des: nazw = ('','десять','двадцать','тридцать','сорок','пятьдесят',                       'шестьдесят','семьдесят','восемьдесят','девяносто');    sot: nazw = ('','сто','двести','тристо','четыресто','пятьсот','шестьсот','семьсот','восемьсот','девятьсот');    dd : nazw = ('','одинадцать','двенадцать','тринадцать','четырнадцать','пятнадцать',                       'шестнадцать','семнадцать','восемьнадцать','девятнадцать');  var    s,d,e,x : Integer;    st      : String;  Begin    Write('Введите число [0..1000] :'); Readln(x);   if x=1000 then st:='тысяча' else begin    s:= x div 100; x:=x mod 100; st:=sot[s];    d:= x div 10; e:=x mod 10;    if (d=1) and (e<>0) then st:=st+dd[e]                        else st:=st+des[d]+ed[e];   end;    writeln(st);     End.

Составил тебе только программу. Для блок-схемы создавай отдельную тему.

const

 a = 3.14;

 b = -7.8;

 n = 15;

 x: array[1..n] of real = (12.37, 16.55, 2.43, 0.81, 0.32, 1.345, -12.18, 0.15, -4.314, 1.29, 54.38, 0.214, -3.837, 0.918, -75.014);

var

 i, k: integer;

 p: real;

begin

 k := 0;

 p := 1;

 for i:=1 to n do

   if (x[i]>0) and (x[i]>b) then

   begin

     p := p * x[i];

     inc(k);

   end;

 if k = 0 then writeln('Нет искомых элементов в массиве')

 else writeln('Количество искомых элементов: ',k,'; их произведение = ',p:0:3);

end.