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

var

 y: real;

const

 x = 2.34;

begin

 y := sqrt(sqr(x) + 2020) * cos(2 * x) - 3;

 WriteLn('При x = ', x, ' y = ', y:2:4);

end.