Даны 2 двузначных целых числа X и y. Найти D=MAX{x+y-y-x}+3,E=MIN{x^2+y^2-y^2+x*y}-если D

Даны 2 двузначных целых числа X и y.Найти D=MAX{x+y;y-x}+3,E=MIN{x^2+y^2;y^2+x*y}-4.если D<E,то к переменной D прибавить первую цифру числа E,иначе из числа взять корень степени, равной второй цифре числа

если есть умеющте напишите,пожалуйста,программу в Паскале

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