Ввести с клавиатуры x y, и вычислить, используя метод промежуточного аргумента — Pascal(Паскаль)

uses crt;
var x,y,z,q:real;
begin
clrscr;
write('x=');readln(x);
write('y=');readln(y);
q:=abs(x-y);
if q=0 then
    begin
      writeln('Reshenia net! Neopredelen Ctg(q).');
      readln;
      exit;
    end
else
z:=exp(ln(5)*(-q))-2*y*(cos(q)/sin(q));
write('Z=',z:0:3);
readln
end.