Question

Информатика 8 класс, помогите пожалуйста срочно

Answer 1

var x, y: real;

begin

   write('Введите x: ');

   readln(x);

   if x > 0 then

       y := sqr(sin(x))

   else

       y := 1 + 2 * sin(sqr(x));

   writeln('y = ', y);

end.