Значение выражения 24(10 степень)+1101(2 степень) в двоичной системе счисления равно: 1) 110001 2) 100001 3) 100101 4) 11101

Var
  s,subs:string;
  c:char;
  i,n,p:integer;
begin
  Writeln('Введите последовательность слов, разделенных пробелом');
  Readln(s);
  s:=' '+s+' ';
  Write('Введите искомый символ: '); Readln(c);
  subs:=' '+c;
  n:=Length(s);
  repeat
    p:=Pos(subs,s);
    if p>0 then begin
      i:=p+2;
      while (s[i]<>' ') and (i<=n) do i:=i+1;
      Write(Copy(s,p+1,i-p-1),' ')
    end;
    if i<=n then s:=Copy(s,i,n-i+1)
  until p=0 
end.

Тестовое решение:
Введите последовательность слов, разделенных пробелом
а роза упала на лапу азора
Введите искомый символ: а
а азора

1) Точность вычисления в программе не задается. Указано только количество цифр дробной части (3), которое требуется вывести на экран.
var x,y,a:real;
begin
write('x = ');
readln(x);
write('y = ');
readln(y);
if x*x-x-4>=0 then
 begin
 a:=((x*y)/(x+y))/(1+sqrt(x*x-x-4));
 writeln('a = ',a:5:3);
 end
 else writeln('Корень из отрицательного числа');
end.

2)
var a,b,c,d:real;
begin
writeln('Введите a, b, c, d:');
readln(a,b,c,d);
if (a=d)
 then if (c=b) then writeln('Бесконечно много решений')
               else writeln('Решения нет')
 else writeln('x = ',(c-b)/(a-d));
end.

Пример:
Введите a, b, c, d:
2 1 4 3
x = -3