решение  для данных чисел.

var x,y,z,a,b,c: real;

begin

x:=2;

y:=0.3;

z:=0.5;

a:=x-y;

b:=x/y;

c:=z*x;

write('naibolshee x/y = ',b:2:1);

readln;

end.

program z1;
var
x,y,z,a,b,c:real;
begin
x:=2;
y:=0.3;
z:=0.5;
a:=x-y;
b:=x/y;
c:=z*x;
if a > b
then begin
if a < c
then write ('Наибольшее', c)
else write ('Наибольшее', a)
end;
else write ('Наибольшее', b);
end.