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

Программы на pascal1) 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. Если все правильно, отметь решение как лучшее)