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

program zz1;
var x, y:real; // задаем переменные не целого типа
begin
x:=10;
while x gt;= 1 do // организуем цикл, в котором переберем все числа от 10 до единицы через единицу
begin
y:=sqr(cos(2 * x)); // вычисляем значение по данной формуле
writeln( для ,x, вычисленное значение y = , y:5:2); // выводим ответ в столбец в формате пять символов для всего числа и два знака после точки
x:=x - 1; // убавляем х на единицу
end;
end.