Ввести x, если xamp;lt;=0, то y=(sin(x))-cos(x), иначе y= 5x^2-(sin^2(x))

program zz1;

var x, y:real; // задаем переменные не целого типа

begin

write( введите начальное значение х ); // вводим с клавиатуры исходное значение х

read(x);

if x lt;= 0 then y:=sin(x) - cos(x) else y:=5 * x * x - sqr(sin(x)); // проверяем, если значение х меньше либо равно нуля, то функцию считаем по одной формуле, если больше нуля, то по иной

write( полученное значение функции = , y); // выводим ответ

end.