Ребята, пожалуйста выручите меня. Завтра у меня информатика.Можете сделать 7 вариант задание 2, 3 и 6. Заранее спасибо!

2а.
var x,f:real;
begin
write(x = );
readln(x);
if xlt;2 then f:=x*x*x-1 else f:=1/(x+1);
writeln(f = ,f);
end.

Пример:
x = 3
f = 0.25

2б.
var x,f:real;
begin
write(x = );
readln(x);
if xgt;=0 
 then f:=sqrt(x)
 else if xgt;=-10 then f:=1-x else f:=exp(x);
writeln(f = ,f);
end.

Пример:
x = -5
f = 6

3.
var a,b,c:integer;
begin
writeln(Введите 3 числа);
readln(a,b,c);
writeln((a=b)or(a=c)or(b=c));
end.

Пример:
Введите 3 числа
3 5 3
True

6.
var x,y:real; b:boolean;
begin
writeln(Введите x и y);
readln(x,y);
b:=(xgt;=0)and(ygt;=0)and(xlt;=1)and(ylt;=2)or(xlt;=0)and(ylt;=0)and(xgt;=-1)and(ygt;=-1);
writeln(b);
end.

Пример:
Введите x и y
-0.5 -0.5
True