{
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.