PascalABC.NET
var
x,y:real;
begin
writeln('Введите x,y: ');
readln(x,y);
if ((x-y)=0) or (y=0) then
writeln('Ошибка в введенных данных')
else
begin
write('S = ');
write((sqr(x)+x*sqr(y)*y)/(sqr(y)*(x-y)):0:3);
end;
end.
var
S, x, y: real;
begin
readln(x, y);
S := (sqr(x) + x * y * sqr(y)) / (sqr(y) * (x - y));
end.
