Ввести арифметическое выражение c тремя числами, в котором использовать сложение и вычитание Вычислить это

  • Var y,x,alpfa1,alpfa2,beta,l:real;
    t1,t2:real;
    Begin
    readln(x,alpfa1,alpfa2,beta,l);
    t1:=sqr(x)+sqr(alpfa1);
    t2:=sqr(x)*x*(beta-alpfa2)-sqr(cos(l+2))*cos(l+2);
    if (t1=0)or (t2<0) then write(y не определено)
    else
    begin
    y:=t1*t2;
    writeln(y=,y:0:2);
    end;
    readln;
    End.

    не знаю можнт так