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

program zz1;

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

begin

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

read (x);

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

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

end.