В паскале надо написать программу

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.