Задание во вложении Напишите программу(для Pascal) для данного выражения:(под номером 4)

// PascalABC.NET 3.2, сборка 1449 от 23.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
var x:=ReadReal('x=');
var A:=x>0?sin(x):x=0?0.0:cos(x);
Writeln(A)
end.