Program MissPhelps;uses crt;var a,b,x: integer; F,k:real;beginwriteln('Начало');readln(a);writeln('Конец');readln (b);F:=-999;x:=a;
while x<=b do begink:= sin(x)/((3*x)+7);if F< k thenF:=k ;inc(x);
end;write('Макс на отрезке',F);end.
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.