Решить по информатике, нужно написать программу в паскале, 1) у=(3*x^4+1)/(x^3) 2) y=(8+x)^(1/-x)^(1/2)

Все считаю в одной программе, если что, можно у1 и у2 в разные разнести   var   x: integer;   y1,y2: real; begin writeln('введите х'); readln(x); y1: =(3*exp(4*ln(x))+1)/exp(3*ln(x)); y2: =sqrt(8+x)-sqrt(8-x); writeln(‘y1=’,y1); writeln(‘y2=’,y2); end.  

// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin   var (x,y): =readreal2('введите  координаты точки x и y: ');   if x=0 then begin       if y=0 then writeln('точка лежит в начале координат')       else writeln('точка лежит на оси ординат (y)');       exit       end   else       if y=0 then begin           writeln('точка лежит на оси абсцисс (х)');           exit           end;   if x> 0 then       if y> 0 then writeln('точка принадлежит i четверти')       else writeln('точка принадлежит iv четверти')   else       if y> 0 then writeln('точка принадлежит ii четверти')       else writeln('точка принадлежит iii четверти') end. пример введите  координаты точки x и y: 12.4 -7 точка принадлежит iv четверти

  var    x,y : integer;       begin    readln (x,y);     if (x=0) or (y=0)  then    begin      if x = 0 then       writeln ('точка лежит на оси y');       if y = 0 then       writeln ('точка лежит на оси x')'    end    else      begin      if (x> 0) and (y> 0) then       writeln ('точка находится в первой четверти');         if (x< 0) and (y> 0) then       writeln ('точка находится во второй четверти');       if (x< 0) and (y< 0) then       writeln ('точка находится в третей четверти');       if (x> 0) and (y< 0) then       writeln ('точка находится в четвертой четверти');   end;   end.