Написать программы: 1)y=sinx^2 2) x больше =0,y=cosx ,1-2sinx в противном случаи

Программы на pascal 1) var   x, y: real;     begin   writeln('Введите х');   readln(x);  //Вводим х   y:= sin(sqr(x));     writeln('y = ', y : 0 : 5);  {Печатаем значение у с округлением до 5 знаков после запятой} end. 2) var   x, y: real;   begin   writeln('Введите х');   readln(x);  //Вводим х   if x >= 0 then y:= cos(x)  //Если х >= 0, то у = cosx, иначе у = 1 - 2sinx   else y:= 1 - 2 * sin(x);   writeln('y = ', y : 0 : 5);  {Печатаем значение у с округлением до 5 знаков после запятой} end. Если все правильно, отметь решение как лучшее)