var
 X,Y,X1,res:real;
 L:boolean;
 A0,A1,A2,A3,A4,A5,A6:integer;
begin
 res:=(0.2+sqrt(0.5))/(sin(0.3)+cos(0.3))-exp(1/3) 
 +exp(1/3*ln(8.2));
 writeln('Результат "а" =',res:10:3);
 write('Ввод x=');
 readln(X1);
 res:=(2*sqr(X1)+3)*sin(X1)+exp(X1*X1*X1+1);
 writeln('Результат "б" =',res:10:3);
 A0:=1;
 A1:=1;
10
 A2:=A1;
 A3:=4*A2+A1;
 A4:=9*A3+2*A2;
 A5:=16*A4+3*A3;
 A6:=25*A5+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 (Y<=1) and (Y>=0.5*X);
 writeln(' L=',L)
end.