помогите плз исправить ошибку в паскале(turbo) invalid floating point operation
выдает при запуске программы после введения b=1/ по условию должно считать-1,6353
program programm4;
uses crt;
var b,a,x,p:real;
d,c,y:real;
begin
clrscr;
textbackground(6);
textcolor(7);
gotoxy(28,1);
writeln('Џа ЄвЁзҐбЄ®Ґ § пвЁҐ #1');
textcolor(yellow);
gotoxy(28,2);
writeln('ЏҐаў п дгЄжЁп');
writeln('‚ўҐ¤ЁвҐ b');
read(b);
a:=((exp(1/5*ln(b))-4)/(sqr(b)+1)-exp(-2));
x:=(abs(a-b)+4)/(cos(sqr(a))+1);
p:=(abs(4*exp(5*ln(sin(exp(3*ln(x))))-sqr(x))-4)/(sqr(sin(exp(3*ln(x)))/(cos(exp(3*ln(x)))))+sqrt(exp(3*ln(x)))));
writeln('====================================');
textcolor(green);
writeln('a=',a:2:4);
write(' x=',x:2:4);
write(' p=',p:2:4);
writeln('====================================');
readln;
gotoxy(33,9);
textcolor(15);
writeln('‚в®а п дгЄжЁп');
writeln('‚ўҐ¤ЁвҐ зЁб« (a,b,c,d)');
read(a,b,c,d);
y:=exp(1/5*ln(x))-(exp(3*ln(c))/2)+(abs(a)-b)/(sqrt(ln(a-b)+4)-(cos(sqr(a))+sqr(sin(b))/(sqrt(a)+1)));
textcolor(12);
gotoxy(33,11);
writeln('y=',y:2:3);
textcolor(15);
gotoxy(1,13);
writeln('Џа®Ја ¬¬г ўлЇ®«Ё«');
gotoxy(65,13);
writeln('Ћ«Ґ©ЁЄ®ў Љ,‚');
writeln('====================================');
readln;
writeln('„«п ўл室 Ё§ Їа®Ја ¬¬л ¦¬ЁвҐ ENTER');
END.