Написать программу, составить алгоритм вычисления функции 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;

program numberofdifferences;

var sum, a, b: integer;

begin

    sum : = 0;

    readln(a);

    b : = a;

    while a < > 0 do begin  

        readln(a);

        if ((a < 0) and (b > 0)) or ((a > 0) and (b < 0)) then

            sum : = sum + 1;

        b : = a;

        end;

  writeln(sum);

end.

program helloworld;

var a: array of integer;

var n, min, max, i, variable: integer;

begin

    min : = 32767;

    max : = 0;

    readln(n);

    for i : = 0 to n do begin  

        readln(variable);

        if (variable > 0) and (variable mod 2 = 0) and (variable > max) then

            max : = variable;

        if (variable > 0) and (variable mod 2 = 0) and (variable < min) then

            min : = variable;

    end;

    if (max < > 0) and (min < > 32767) then

        writeln(min, ' ', max)

    else  

        writeln(-1);

end.