Найти синтаксическую ошибку в коде - Pascal ABC

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

program funciya;
var
x,y,z,f:real;
begin
write('Г‚ГўГҐГ¤ГЁГІГҐ Г§Г*Г*Г·ГҐГ*ГЁГҐ Гµ') ;
readln(x);
if x>20 then
begin
z:=sqrt(ln(x));
y:=(ln(x+5))/(x+5);
f:=((x*x)+2*y+z)/(3*y*y);
Writeln (f)
else
begin
z:=4(sin(x)/cos(x))/(x+2,56);
y:=(cos(x)-5)/(2*150*x);
Writeln (f);
end
end
end.

РУгается на точки с запятой, после Writeln (f), но говорит что ставить перед else нельзя((

Решение задачи: «Найти синтаксическую ошибку в коде»

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

program funciya;
var
  x,y,z,f:real;
begin
  write('введите значение x: ') ;
  readln(x);
  if x > 20 then
  begin
    z:=sqrt(ln(x));
    y:=(ln(x+5))/(x+5);
    f:=((x*x)+2*y+z)/(3*y*y);
    Writeln(f)
  end
  else
  begin
    z:=4 * (sin(x)/cos(x))/(x+2.56);
    y:=(cos(x)-5)/(2*150*x);
    Writeln(f)
  end
end.

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

В программе объявлены три переменные типа real: x, y и z.
С помощью функции readln считывается значение переменной x.
Если значение x больше 20, то выполняется блок кода внутри if.
Внутри блока if вычисляются значения переменных z, y и f.
Вычисляется значение z как квадратный корень из ln(x).
Вычисляется значение y как ln(x+5) деленное на (x+5).
Вычисляется значение f как ((xx)+2y+z)/(3yy).
Если значение x меньше или равно 20, то выполняется блок кода внутри else.
Внутри блока else вычисляются значения переменных z, y и f.
Вычисляется значение z как 4 * (sin(x)/cos(x))/(x+2.56).
Вычисляется значение y как (cos(x)-5)/(2150x).
Вычисляется значение f как (f1+f2+f3)/(3f2f2).
Значение f записывается в выходной поток.
Программа завершается.