01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / HELLO

 program b5;




 unit hello;

interface
uses crt;
type
f=function(x:real):real;
function IntegLeft(c:f;a,b,e:real):real;

implementation
function IntegLeft;
var
i,s:real;
begin
     s := 0;
     i := a;
     while i <= b do
     begin
          s := s + c(i)*e;
          i := i + e;
     end;

     IntegLeft := s;
end;

end.