Пожалуйста посчитайте пожалуйста решить.

var y,s:real;beginwrite('Введите значение y: ');readln(y);s:=sqrt(cos(4*sqr(y))+7.151);writeln('S = ',s);end.