Зобразть блок схему для розрахунку f=4x^3+2x-1, при x=8,16,24

Неправильная задача. Блок схема нужна только тогда, когда есть условия, циклы и т. п.
Тут f вычисляется в одну строку:

var f: real;
var x: real;

x := 8; 16, 24

f := 4*x*x*x + 2*x - 1;

Дальше идет исправленное решение задачки для Бочонка228 (в его задачке просто не могу поменять решение):

  type pupil = record
    name: string[20];
    sex: (female, male);
    age: integer;
    height: 140..200
  end;

begin

  var i, a: integer;

  var group: array [1..10] of pupil;

  for i:= 1 to 10 do begin
    writeln(i);
    writeln('Name:'); readln(group[i].name);
    writeln('Sex (1-male, 2-female):'); readln(a);
   
    if a = 1 then begin
      group[i].sex := pupil.male;
    end
    else begin
      group[i].sex := pupil.female;
    end;
   
    group[i].age := 0;
    while (group[i].age lt; 6) or (group[i].age gt; 100) do begin
      writeln('Age (6-100):'); readln(group[i].age);
    end;
   
    group[i].height := 0;
    while (group[i].height lt; 140) or (group[i].height gt; 200) do begin
      writeln('Height (140-200):'); readln(group[i].height);
    end;
  end;
 
  for i := 1 to 10 do begin
    if (group[i].age lt;= 30) and (group[i].sex = pupil.female) then begin
      writeln(group[i].name);
      writeln(group[i].age);
      writeln(group[i].height);
    end
  end

end.