var

y, x: real;

begin

x := 3;

y := (sqr((x + 1)) + 2 * (x + 1)) / (4 * Sin(x));

writeln('Значение функции Y равно ', y);

end.

2 вопрос (блок-схема прикреплена):

var

a, c, x, y: integer;

begin

writeln('Введите три любых целых числа');

readln(a, c, x);

 if (x >= 0) then

y := a * x + c

else

y := c * x + sqr(a);

writeln('Значение функции Y равно ', y);

end.

3 вопрос: значение переменной S в результате работы программы равна 50.