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

Формулировка задачи:

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.

Подскажите, где ошибка в 8 строке? Program1.pas(8) : Встречено 'else', а ожидалось ';'

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

Листинг программы

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.

Объяснение кода листинга программы

Объявлены четыре переменные: a, b, y, z (строки 2-5)
Выводится сообщение для ввода значений y и Z (строка 6)
Значение переменной z устанавливается равным 2.6 (строка 7)
Значение переменной y устанавливается равным 0.3 (строка 8)
Значение переменной b вычисляется как ln(y) / ln(10) - ln(Z) (строка 9)
Если b равно y, то выполняется блок else (строка 10)
Если b меньше y, то выполняется блок else (строка 11)
Иначе значение переменной a вычисляется как (tan(Z) + cos(y)) / (1 + SQR(sin(b))) (строка 12)
Выводятся значения переменных a, b, Z и y (строка 13)