Program fhg;
var
x:integer;
y:real;
begin
write('Введите x');
readln(x);
y:=(4*sqrt(x-2))/((sqr(sin(2*x)))+In((abs(x-3))/(2.6*x)));
writeln('Ответ',y);
end.
Где ошибка ? Пишет , что Встречено 'In', а ожидалось выражение
Напишите плиз , где ошибка!!
И напишите . как правильно сделать !Напишите!

varx, y:real;beginwrite('Введите x ');readln(x);y:=4*sqrt(x-2)/(sqr(sin(2*x))+ln(abs(x-3)/(2.6*x)));writeln('Ответ ',y);end.Пример:Введите x 2.5Ответ -1.718976394087695e+00