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

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.