Ответ Автор - БлАг0ДаРнЫй я решил, Как понял ________________var x,y:real;begin readln (x); y:=sqr( Cos (x+3)); writeln (y);end.