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

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