Составить программу для вычисления значений функции f(х) на отрезке

var f    : file of Real;
    n, i : integer;
    r    : Real;
 
begin
  Randomize;
 
  Write('Сколько чисел нужно записать? '); ReadLn(n);
 
  Assign(f, 'Chisla.Dat');
  ReWrite(f);
  for i:= 1 to n do
  begin
    r := Random(100) / (Random(50)/+1);
    Write(f, r);
  end;
  Close(f);
 
  ReadLn;
end.

var f    : file of Real;
    b, r, summ : Real;
 
begin
  Write('Введите число b? '); ReadLn(b);
 
  Assign(f, 'Chisla.Dat');
  Reset(f);
 
  summ :=0;
  while not eof(f) do
  begin
    Read(f, r);
    if r<b then summ := summ + (r*r);
  end;
  Close(f);
  WriteLn('Сумма квадратов чисел меньших ',b:2:2,' равна ', summ:2:8);
 
  ReadLn;
end.

var f, fq : file of Real;
    r : Real;
    c : integer;
 
begin
  
  Assign(f, 'Chisla.Dat');
  Reset(f);
 
  Assign(fq, 'Q');
  ReWrite(fq);
  c := 0;
  while not eof(f) do
  begin
    Read(f, r);
    if r / 10 = 0 then
    begin
      Write(fq, r);
      inc(c);
    end;
  end;
 
  Close(fq);
  Close(f);
  WriteLn('В файл Q помещено ',c,' чисел.');
 
  ReadLn;
end.

program aformylunadoychitatochtozvuzaychenik;
uses crt;
var
a,s,h,rv,ro:real;
begin
writeln('vvedite rozmer storonu');
readln(a);
s:=sqr(a)*sqrt(3)/4;
writeln('ploschad rovna',s:5:2);
h:=sqrt(3)*a;
writeln('vusota rovna',h:5:2);
rv:=sqrt(3)/6*a;
writeln('vpisanuj radiys raven',rv:5:2);
ro:=sqrt(3)/3*a;
writeln('opisanuj radiys raven',ro:5:2);
readln;
end.