• var x,y: real;

        begin

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

        readln(x);

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

        writeln('y = ',y);

        end.

• var x,y: real;

        begin

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

        readln(x);

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

        writeln('y = ',y);

        end.