По pascal. составьте не большую программу

Объяснение:

Не надо программы.

Z = 1

Очевидно, что

max ( min(x,y), max(y,x) ) = max (y,x);

z = max (y,x) / max (y,x)

z = 1.  

program fantscrin;

var x,y,z:real;  

begin

 write('x = '); readln(x);

 write('y = '); readln(y);

 z:= max(min(x,y),max(y,x)) / max(y,x);

 writeln('z = ',z)

end.

Вообще если упростить

program fantscrin;

var x,y,z:real;  

begin

 write('x = '); readln(x);

 write('y = '); readln(y);

 z:= max(x,y) / max(x,y);

 writeln('z = ',z)

end.