Program Lab8_22; uses crt;

const v=3.14; t=0.25;

var x,y:real;

Begin clrscr;
X:=Sin(V*T)/Cos(V*T);
if (X < 0) then Y:=4
           else if (X < 1) then Y:=Sqr(X)+3*X+4
                           else Y:=Sqr(Sqr(X)+3*X+4);
Writeln(' Ответ: ',Y:8:5);
Readln;
end.