Даны 2 двузначных целых числа x и y.найти d=max{x+y; y-x}+3,e=min{x^2+y^2; y^2+x*y}-4.если d

Var x,y,k,err:integer;s:string;d,e:real;
begin
err:=0;
read (x,y);
d:=max (x+y,y-x) + 3;
e:=min (sqr(x)+sqr(y),sqr(y)+x*y) - 4;
str (e,s);
k:=length(s);
val (s,e,err);
if (d<e) then
begin
d:=d+(e div (10*(k-1)));
end else
begin
d:=power (d,1/(e div (10*(k-2;
end;
writeln (d);
end.