Введите значение x и вычислите значение функции

своей доброты он заранее определил количество отметок каждого вида и
произвольно расставил их студентам. Причем количество студентов,
которым он не поставил тройку, оказалось равно 27. Количество
информации, содержащееся в сообщении "Студент Иванов не сдал экзамен
на отлично", равно (3 - log27) бит. Информационный объем сообщения
"Абитуриент Сидоров получил четверку" равен двум битам. Чему равно
количество абитуриентов, получивших пятерку?

числа m и n.Получить число состоящее из m последних чётных цифр числа n. Написать программу на Паскале только на Паскале.

пожалуйста)

var x,y,z,s:real;
begin
writeln ('Введите значение x');
write('x='); readln(x);
s:=ln(abs(y))+ abs(ln(z));
if x<-2 then y:=2*x;
if -2<=x<=2 then y:=sin(x*e-3)+ln(abs(x));
if x>2 then y:=power((power(cos(sqr(x)),2)+ power(sin(power(x,3)),4)),4);
if x<0 then z:=power(sin(x),2);
if x>=0 then z:=power(e,-(sqr(x+3)));
writeln('Ответ');
writeln('s=',z:8:3);
end.
Ошибка в (if -2<=x<=2 then y:=sin(x*e-3)+ln(abs(x));) пишет что "Операция '<=' не применима к типам integer и boolean"
Кто сможет исправить?

10/F F:=W+F^2

нуля

PascalABC

program aip;
var
fltA,fltB,fltB2:real;
code:integer;
function ip(A:real):real;
var A1:string;
begin
write('Введите значение А= ');


//--------
repeat
readln(A1);
val(A1,A,code);
if (code<>0) then writeln('no');
until (A>0);
//-------
ip:=A;
end;
begin
fltA:=ip(fltA);
fltB:= ((1-2*sin(fltA)*sin(fltA))/(1+sin(2*fltA)));
fltB2:= ((1-tan(fltA))/(1+tan(fltA)));
writeln('Первая формула ',fltB:5:5);
writeln('Вторая формула ',fltB2:5:5);
end.