Не работает программа в паскале 5

Посмотрите текст, может кто знает в чем проблема. у меня пишет неизвестный символ

Program fnk; {Раздел описаний}
Var
x, {Переменная}
y: real; {Искомая переменная}
begin {Начало основной программы }
{Вывод заголовка программы}
writeln('Программа вычисления значения функции’);
{Ввод исходных данных }
Writeln('Введите значение аргумента x ');
Readln(x);
If (x>0) and (sin(5*(x*x)) <> 0)
Then
Begin y:=(3*ln(x))/(ln(10))*(sin(5*(x*x))));
Write('значение функции равно ',y:6:2);
end
else
write('решений нет');
readln;
end