Составить алгоритм и программу печати значений функции y: =cos^2x для x=10,9,8,.

Var
   i:integer;
Begin
  for i:= 10 downto 1 do
     Writeln('cos^2(',i,') = ',sqr(cos(i)));
End.