2а.var x,f:real;beginwrite('x = ');readln(x);if x<2 then f:=x*x*x-1 else f:=1/(x+1);writeln('f = ',f);end.Пример:x = 3f = 0.252б.var x,f:real;beginwrite('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 = -5f = 63.var a,b,c:integer;beginwriteln('Введите 3 числа');readln(a,b,c);writeln((a=b)or(a=c)or(b=c));end.Пример:Введите 3 числа3 5 3True6.var x,y:real; b:boolean;beginwriteln('Введите 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.5True