помогите написать программу в паскале
y=a*exp(-(x))*Cosbx+c (x) — корень из х
a=1,5 b=2 c=-0,75
var y,x:real;
const a=1.5; b=2; c=0.75;
begin
write('x=');
readln(x);
y:=a*exp(-sqrt(x))*cos(b*x)+c;
writeln('y=',y);
end.