Вроде должно быть так: program primer; var a,b,x:integer; y:real; begin write('Введите значение переменной A'); readln(a); write('Введите значение переменной B'); readln(b); y:=2.4*abs((sqr(x)+b)/a)+(a-b)*sqr(sin(a-b)+sqrt(10)(x-b); wtite('Результат',y:6:2); readln <span>end.</span>