Проверить расчет по формуле: Program1.Pas(8): Встречено 'else', а ожидалось ';'

Program ChM;
Var
a,b,y,z: real;
begin
Writeln('Введите y и Z');
Read(y,Z);
b:=ln(y)/ln(10)-ln(Z);
If b=y then begin a:=SQR(b)+Z*cos(b) else if b<y then a:=EXP(1/3*SQR(y)-Z*SQR(b)*(b) else if b>y then a:=tan(Z)+cos(y)/1+SQR(sin)*(b);
Write('a=',a,' b=',b,' Z=',Z,' y=',y);
End.

Program ChM;
Var
a,b,y,z: real;
begin
Writeln('Введите y и Z');
Read(y,Z);
b:=ln(y)/ln(10)-ln(Z);
If b=y then a:=SQR(b)+Z*cos(b) else if b<y then a:=EXP(1/3*SQR(y)-Z*SQR(b)*(b)) else if b>y then a:=tan(Z)+cos(y)/1+SQR(sin)*(b);
Write('a=',a,' b=',b,' Z=',Z,' y=',y);
End.

program ChM;
 
var
  a, b, y, z: real;
 
begin
  Writeln('Введите y и Z');
  //Read(y, Z);
  z := 2.6; 
  y := 0.3;
  b := ln(y) / ln(10) - ln(Z);
  if b = y then a := SQR(b) + Z * cos(b) 
  else 
  if b < y then a := EXP(1 / 3 * ln(SQR(y) - Z * SQR(b) * (b)))
  else a := (tan(Z) + cos(y)) / (1 + SQR(sin(b)));
  Write('a = ', a:0:4, '  b = ', b:0:4, '  Z = ', Z, '  y = ', y)
end.