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

2а. var x,f:real; begin write('x = '); readln(x); if x<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 x>=0   then f:=sqrt(x)  else if x>=-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:=(x>=0)and(y>=0)and(x<=1)and(y<=2)or(x<=0)and(y<=0)and(x>=-1)and(y>=-1); writeln(b); end. Пример: Введите x и y -0.5 -0.5 True