Program lab2;
Uses Crt;
Var
z,x,m,a,b:integer;
v:real;
Begin
clrscr;
Writeln('Vvedite znachenie peremenih celogo tipa: a,m,x,b');
readln(a,m,x,b);
if (m=9) or (m=1) then z:=abs(x);
if (m<>0) and (m<>1) and (m<>9) then z:=1-m;
if m=0 then z:=2*a;

if x<=a then v:=sin(x);
if x>b then v:=exp(ln(3)*(a-1));
if (x>a) and (x<=b) then v:=b*sqr(x);
writeln;
writeln('peremenaya z=',z,' ,v=',v:5:2);
ReadKey;
End.