Написать функцию, вычисляющую значение математической функции Y(x) = cos(x)+1 для всех значений аргумента из диапазона [1..10] c шагом 0.1

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var x:real;
  for var i:=1 to 91 do begin
    x:=0.1*i+0.9;
    Writeln(x:4:1,cos(x)-1:11:7)
    end
end.

#include lt;iostreamgt;
#include lt;math.hgt;

float Yx(float x);

int main() {
const int F = 1, T = 10;
const float S = 0.1;
for (float i = F; i lt;= T; i += S) {
std::cout lt;lt; "y(" lt;lt; i lt;lt; ") = " lt;lt; Yx(i) lt;lt; \n;
}
return 0;
}

float Yx(float x) {
float y = cos(x) + 1;
return 0;
}