Объясню алгоритм:
считываем слово,
если это слово имеет чётную длину
если это слово палиндром
то ответ ложь
иначе ответ истина
Var x,y:real;beginx:= 0.1;writeln('x ':6,' y':6);while x<0.7 dobeginy:= 2*Sin(x);writeln(x :6, y:9:3);x:= x + 0.1;end;<span>end.</span>
Program esep;
const min = -1;
max = 1;
step = 0.1;
var a, b, x, y : real;
begin
x := min;
write('введите a, b, x: ');
readln(a, b, x);
repeat y := 1+sqr(a+ b)/(x-a);
writeln('X = ', x:6:2, ' Y(X) = ', y:6:2);
x := x + step
until x >= max + step;
readln
<span>end.</span>