Заполни таблицу. Информатика(если не понятно, то файл приложен)

Операция
Обозначение
Тип результата
получение целого остатка
mod
⊄
≡
∅

char
logical
integer
string

var i,s,p: integer; a: array [1..100] of integer;

begin 

s: =0; p: =0;

writeln('vvedite masiv a: ');  

for i: =1 to 10 do begin

write('a[',i,']=');

readln(a[i]);

end;

for i: =1 to 10 do begin

if a[i]> 0 then s: =s+a[i];  

end;

s: =s*2;

writeln('udvoennaya suma polozhitelnih elementov=',s);

writeln('indexi elementov kotorie bolshe prediduschego: ');

writeln;

for i: =2 to 10 do begin

if a[i]> a[i-1] then write(i,', ');

end;

for i: =2 to 10 do begin

if ((a[i]> =0) and (a[i-1]> =0)) or ((a[i]< 0) and (a[i-1]< 0)) then p: =p+1;

end;

writeln;

if p> 0 then writeln('masiv imeet pari sosednih elementov s odnakovimi znakami') else   writeln('masiv ne imeet pari sosednih elementov s odnakovimi znakami');  

readln(s);

end. 

a: =x+y/x+1-xy-12/34+x вопрос в том, в чем собственно проблема.? просто берете переменную и присваеваете ей значение .уравнение будет точно такоеже.

1) var a,b,c,d,e,f,g: real;

    begin

      readln(a,b,c,d,e,f,g);

      writeln(a*b*c*d*e*f*g);

    end.

2) var a,i,s: integer;

    begin

      s: =1;

      a: =0;

      for i: =1 to 7 do begin

        a: =a+1;

        s: =a*s;

                              end;

    writeln(s);

  end.

вот программы. по ним составь блок схемы. 

4763(восьмиричная)=100111110011(двоичная)

abcd(шестнадцатеричная)=1010101111001101(двоичная)

(нужно двадцать символов.нужно двадцать символов.)