большое спасибо! smile.gif

проверьте, пожалуйста, следующий вариант решения ) правильно или нет? )

Код

program pr;
var x,y:integer;
begin
y:=1-x+sin(x)-ln(1+х);
writeln ('y=' ,y);
readln;
end.