Найти синтаксическую ошибку в коде - 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 нельзя((

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

textual
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.

5   голосов, оценка 4.400 из 5


СОХРАНИТЬ ССЫЛКУ