Рассчитать значение у при заданном значении х: cos² при х<0 y =1 +cos²x в противном случае

Question

Рассчитать значение у при заданном значении х:
cos² при х<0<br> y =1 +cos²x в противном случае

Answer 1

Var x:real;
begin
read (x);
if (x<0) then writeln (sqr(cos(x))) else writeln (1+sqr(cos(x)));<br>end.