Составить и отладить программу для вычисления по указанной формуле. Значения переменных, указанных в правой части, ввести с клавиатуры, результат вывести на экран. Выполнить проверку правильности.

Вроде должно быть так:
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
end.