program lab2;
Uses crt;
var x,a,Z,u,Ha,Hx:real;
Function min(b,c:real):real;
begin
If b<c Then min:=b;
min:=c
end;
begin
ha:=1.3;
hx:=1.3;
x:=1;
repeat
a:=2;
repeat
u:=min(sin(a/x)/cos(a/x),x*sin(x*x));
z:=min(a*sqrt(abs(u)),sin(a)/x);
writeln('x=',x:5:2,'a=',a:5:2,'u=',u:5:2)
a:a+ha;
until a>=4;
x:x+hx;
until x>=3;
end.