Написать программу,составить алгоритм вычисления функции z=sin y-y(1/2)+2.73,где у меняется от 1 до 15. вывести все значения y и z

For i:= 15 downto 1 do
   begin
      z:= sin(i) - i*(1/2)+2.73;
      write(i,z);
      z:=0;
    end;