СРОЧНООООО,УМОЛЯЮ,ПОМОГИТЕ паскаль

{
Free Pascal Compiler version 2.6.4+dfsg-8 [2015/08/14] for x86_64
Copyright (c) 1993-2014 by Florian Klaempfl and others
}

program X_and_Y;
var
  a, b, x, y : real;
 
begin
  write ('Введите число A: ');
  readln(a);
  write ('Введите число B: ');
  readln(b);
 
  x := ((2/(a*a+25))+b)/(sqrt(b)+(a+b)/2);
  writeln('X=', x:10:4);

  y := (abs(a)+2*sin(b))/(5.5*a);
  writeln('Y=', y:10:4);
end.