Склавиатуры вводятся целые числа a и b , котрые являются концами отрезка. для функции f(x)=sin(x)/((3*x)+7) на отрезке [ a,b] найти ее максимальное значение, рассматривая все точки отрезка с шагом +1.

Program MissPhelps;
uses crt;
var a,b,x: integer;
F,k:real;
begin
writeln('Начало');
readln(a);
writeln('Конец');
readln (b);
F:=-999;
x:=a;

while x<=b do begin
k:= sin(x)/((3*x)+7);
if F< k then
F:=k ;
inc(x);

end;
write('Макс на отрезке',F);
end.