напишите пожалуйста программу вычисления в Паскаль,пожалуйста!

Ответы:

{ABC-pascal}

var

x: real,

begin   

write(x=),   

readln(x),   

write((sinx)^2+cosx=,sin(x)*sin(x)+cos(x)),   

readln,

end.