Зобразіть блок схему для розрахунку 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 < 6) or (group[i].age > 100) do begin
      writeln('Age (6-100):'); readln(group[i].age);
    end;

    group[i].height := 0;
    while (group[i].height < 140) or (group[i].height > 200) do begin
      writeln('Height (140-200):'); readln(group[i].height);
    end;
end;

for i := 1 to 10 do begin
    if (group[i].age <= 30) and (group[i].sex = pupil.female) then begin<br>      writeln(group[i].name);
      writeln(group[i].age);
      writeln(group[i].height);
    end
end

end.