Вычислить значение функции

program one;
var x,y:integer;
    Q,Q1,Q2,Q3:real;
begin
writeln('Введите X');
readln(x);
writeln('Введите Y');
readln(y);
begin
if (y-1>0) and (4+x>0) and (x>=-2) and (x<=2) then
Q1:=exp(sqrt(y-1))+abs(power(y+x,3.4))/(4+x)
else
Q2:=sin(2*x+pi/4)+abs(power(x-4,1/3))/sqr(y)-9;
if (x-2>0) and (x>2) and (x<=5) then
Q3:=ln(x-2)/ln(4)+cos(x-y)/sin(x-y)
else
Q2:=sin(2*x+pi/4)+abs(power(x-4,1/3))/sqr(y)-9;
writeln('Q1=',Q1:4:4);
writeln('Q2=',Q2:4:4);
writeln('Q3=',Q3:4:4);
end;
end.

var x, y, q, p: real;
    f: boolean;
begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  if (x >= -2) and (x <= 2)
    then begin
      f := y - 1 >= 0;
      if f then q := (exp(sqrt(y - 1)) + power(abs(y + x), 3.4)) / (4 + x)
    end
    else if (x > 2) and (x <= 5)
      then begin
        q := sin(x - y);
        f := q <> 0;
        if f then q := ln(x - 2) / ln(4) + cos(x - y) / q
      end
      else begin
        f := y = -3;
        if f then q := sin(2 * x + pi / 4) + power(abs(x - 4), 1 / 3) / (y * y - 9)
      end;
  if f
    then begin
      if q > y
        then p := q
        else p := y;
      writeln('Q = ', q:0:4, ',  P = ', p:0:4)
    end
    else writeln('Q не определено')
end.