Если a+b<c^3 , вычислить и отпечатать наибольшее из a, b, c, иначе вычислить и отпечатать x=tg(a|c). Если x<0, вычислить и отпечатать y=|x|, иначе отпечатать сообщение ‘’х — отрицательное число ‘’.- Pascal(Паскаль)

var a,b,c,max:integer;
    x,y:real;
begin
Readln(a,b,c);
 if a+b<sqr(c)*c then
  begin
   max:=a;
    if (b>a) and (b>c) then
     max:=b;
    if (c>b) and (c>a) then
     max:=c;
    Writeln('Max ',max);
  end
 else
  begin
   x:=sin(a/c)/cos(a/c);
    if x<0 then
     begin
      y:=abs(x);
      Writeln('Y ',y);
     end
    else
     Writeln('X-otr');
   end;
 Readln;
end.