Написать программу на паскале написать программу для нахождения значения переменной s по формуле:

Знак  1порядок  10000001  (2) - 1111111 (2) = 10 (2) = 2 (10)мантисса  00010000100000000000000 (2) = 1000100001 (2)-1.000100001 (2)  *10^2 (10) = -100.0100001 (2)-100.0100001 (2) = примерно  -4.26  (10).                                                                                                                                    

//5 var sum, n: integer; begin readln(n); while (n > 0)do   begin       sum : = sum + n mod 10;       n: = n div 10;   end;   if (sum mod 7 = 0) then   writeln('сумма чисел кратна 7') else       writeln('сумма чисел не кратна 7') end. //8 var a, cnt: integer; begin read(a); if (a < 50)then cnt: = cnt + 1; read(a); if (a < 50)then cnt: = cnt + 1; read(a); if (a < 50)then cnt: = cnt + 1; writeln(cnt); end. //10 var a, b: real; begin readln(a,b); if (a < abs(b)) then   b: = b / 5; writeln(a, ' ', b); end.