Якого значення набуде змінна s після виконання даної програми?

а.3
б.2
в.5
г.4

program _1_2; uses crt; var  dlina, shirina, vysota: real; begin  clrscr;   textcolor(14);   writeln('вычисление объёма параллелепипеда.');   writeln('введите исходные данные: ');   write('длина (см) -> ');   readln(dlina);   write('ширина (см) -> ');   readln(shirina);   write('высота -> ');   readln(vysota);   writeln('объём: ',(dlina*shirina*vysota): 7: 2);   repeat  until keypressed; end.

в блок схемах не сильна

var n: integer;

s,s0: real;

begin

  n: =1;

  s: =10;

  repeat

      n: =n+1;

      s: = s + (100+p)*s0/100;

      s0: =(100+p)*s0/100;

  until s> 200;

  writeln(s);

end.

a=gets()

n=0

while a> 0 do

  n=n*10+a%2

  a=a/2

end

print(a)

блок схемы не умею

(a1+a2+a3+a4+b1+b2+b3+b4)/8=3

a1+a2+a3+a4+b1+b2+b3+b4=24

a1+a2+a3+b1+b2+b3=30

значит

a4+b4=24-30=-6

b4=5

a4=-6-5=-11