Вычислите значения выражения:
1010снизу10 + (106снизу16 - 11011101снизу2) - 12снизу8;

1) 

var

s: string;

begin

s: ='пробел';

writeln(s);

delete(s,4,1);

insert('д',s,4);

writeln(s);

end.

2)

var

i: integer;

a,b: string;

begin

readln(a);

b: ='';

for i: =1 to length(a) do

b: =b+a[i]+' ';

writeln(b);

end.

3)

var

a: string;

begin

readln(a);

if a[2]=a[4] then writeln('равны')

else  writeln('не равны');

end.

var s: string;

begin s : = 'видеоадаптер'; writeln(s); writeln(s[3] + s[2]+ s[5] + s[3]); writeln(s[12] + s[6] + s[3] + s[2] + s[5]); writeln(s[9] + s[6] + s[12] + s[10] + s[11] + s[12]); end.

if x< 10 then x: =10

else

  if x< 15 then x: = 16

  else x: = 20

для обоих вариантов х=10, потому что дальше первой строчки оно не пойдет

var a: array [1..8,1..5]of integer;

s,i,k: integer;

begin

  randomize;

  for i: = 1 to 8 do begin

        for k: = 1 to 5 do begin

              a[i,k]: = random(20)-10;

              write(a[i,k]: 3,' ');

              if a[i,k] mod 2 = 0 then s: =s+a[i,k];

        end;

        writeln;

  end;

  writeln('s=',s);

end.