Найти наибольшее значение функции f(x) на заданном интервале.y=e^(-2*x)*sin(2*pi*x) {(-2*x)-степень}

var x,a,b,mx,dx,y: real;
    i,n: integer;
begin
writeln ('a,b,n');
readln (a,b,n);
x:=a;
dx:=(b-a)/(n-1);
mx:=exp(-2*x)*sin(2*pi*x);
for i:=1 to n do
begin
  y:=exp(-2*x)*sin(2*pi*x);
  writeln ('y:=',y:8:3);
  if y>mx then mx:=y;
  x:=x+dx;
end;
writeln ('naib znachenie mx=',mx:8:3);
readln;
end.