Составьте 2 в паскале с sin и cos. не сложные.

        begin

        writeln('Введите значение x: ');

        readln(x);

        y:=(5*sin(x)+1)/3;

        writeln('y = ',y);

        end.

        begin

        writeln('Введите значение x: ');

        readln(x);

        y:=(3*cos(x)-4)/2;

        writeln('y = ',y);

        end.