Erorr 85

[d00ker]

Вот кусок кода программы:

else begin
                    z:=ln(m)+q;
                    writeln('Otvet: ',z:2:2)
                end
          end
     end
else begin

Ругается на последнюю строчку

else begin

, что Error 85: ";" expected. Что-то не догоняю к чему он это...

[baster128]

Хотя-бы код процедуры целиком...

[Mad_Cat]

else begin
                    z:=ln(m)+q;
                    writeln('Otvet: ',z:2:2)
                end
          end
     end 
else begin  // а нафиг тут 2 else

я так понимаю у вас там конструкция вида

if  {}  then
if {} then 
else {}
else {}

добавьте
begin
чтобы получилось

if  {}  then begin
if {} then 
else {}
end
else {}

[d00ker]

m:=(az+r);
     if m<=0 then
        writeln('Logarifm v 1 ur raven ili menshe 0')
     else begin
          c:=x-sqrt(abs(x-b));
          if c=0 then
             writeln('Znamen v 1 ur raven 0')
          else begin
               q:=cos((1+x)/c);
               if (q<-1) or (q>1) then
                  writeln('Znach Cos v 1 ur vishlo za gran')
               else begin
                    z:=ln(m)+q;
                    writeln('Otvet: ',z:2:2)
                    end
               end
          end
     else begin

Вот тот же код, но больше...