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

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