Помогите, пожалуйста. Нужно составить таблицу значений функции y=sinx*cosx на отрезке [0;П] с шагом 0,1

// PascalABC.NETvary,x,n:real;beginwrite('Введите n: ');readln(n);while (x <= n) do beginwriteln('Y = ', sin(x)*cos(x));x:=x+0.1;end;end.Проверка:Введите n: 1Y = 0Y = 0.0993346653975306Y = 0.194709171154325Y = 0.282321236697518Y = 0.358678045449761Y = 0.420735492403948Y = 0.466019542983613Y = 0.49272486499423Y = 0.499786801520753Y = 0.486923815439098Y = 0.454648713412841