задача с тремя условиями

[_Marchel_]

даны y, x, a, b. Вычислить d=в числителе (x*x)-2ab, в знаменателе (y*y)+1

Если d=0, напечатать y, x, a, b.
Если d>0, то вычислить и напечатать P=e(в степени 2х)*sin y-3.
Если d<0, то увеличить в 2 раза y, x, a, b и напечатать.

помогите с текстом программы пожалуйста.

[newerow1989]

var y,x,a,b:integer;
    d,p:real;
begin
   Write('y = '); Readln(y);
   Write('x = '); Readln(x);
   Write('a = '); Readln(a);
   Write('b = '); Readln(b);
   d:=((x*x)-2*a*b)/((y*y)+1);
   //Writeln('d = ',d:5:5);
   If d=0 then
      Writeln('y = ',y,'; x = ',x,'; a = ',a,'; b = ',b);
   If d>0 then
   begin
      p:=exp(2*x)*sin(y)-3;
      Writeln('p = ',p:5:5);
   end;
   If d<0 then
   begin
      y:=2*y;
      x:=2*x;
      a:=2*a;
      b:=2*b;
      Writeln('y = ',y,'; x = ',x,'; a = ',a,'; b = ',b);
   end;
   Readln;
end.

Сойдет?

[_Marchel_]

да, спасибо!

[newerow1989]

Пожалуйста!