Составить программу вычисления значения функции (при любом значении x):
y=sin(3,2+(sqr(1+x)):(sqrt(sqr(5*x)))
Что не правильно?
Program N15b;
var x: integer; y:real;
begin
writeln('Введите x');
readln(x);
y:=sin(3,2+(sqrt(1+x)):(sqrt(sqr(5*x)));
write(y);
end.

Во- первых:в задании не отмечено. что х целое (то есть не integer, a взять real)
Деление в паскале обозначается как / , а не :
Вместо 3,2  в программе пишем 3.2
Если х=0, то в знаменателе окажется 0  и выражение не имеет смысла (это в программе не учтено)

Program N15b;
var x:real; y:real;
begin
writeln('Введите x');
readln(x);
y:=sin(3.2+(sqrt(1+x))/(sqrt(sqr(5*x)));
write(y);
end.

Пишет неверное выражение!

в программу добавить после ввода х : if (x<>0) then y:=