Program Lab7_2;

var

X, Y, X1, res: real;

L: boolean;

A0, A1, A2, A3, A4, A5, A6: integer;

begin

res:=(4-sqr(0.16))/(sqrt(10)-sin(0.725))+(1+exp(1/3*ln(ln(33)/ln(10))));

writeln(‘Результат ''a''=’, res:10:3);

write(‘Ввод x=’);

readln(X1);

res:=(sin(X1)/cos(X1))+sqrt(X1)*exp(X1*X1-1)+6;

writeln(‘Результат ''б''=’, res:10:3);

A0:=-1;

A1:=2;

A2:=A1;

A3:=A2-2*1*A1;

A4:=A3-3*2*A2;

A5:=A4-4*3*A3;

A6:=A5-5*4*A4;

writeln(‘A0=’, A0, ‘A1=’, A1, ‘A2=’, A2, ‘A3=’, A3, ‘A4=’, A4, ‘A5=’, A5, ‘A6=’, A6);

write(‘Ввести X и Y’);

readln(X,Y);

L:=(X>=0)and(X<=3.14)and(Y>=-1)and(Y<=1);

writeln(‘L=’, L)

end.