Составьте программу вычисления значения функции по формуле y=-3sin x. для которой значение аргумента x введите с клавиатуры. отладьте программу на следующем примере: x=5, y=2, 87677

Var x,y: real; 
 begin 
write('Введите x: '); 
readln(x); 
 y:=-3*sin(x); 
 writeln('y = ',y);
end.