Некорректная задача. Блок схема нужна только тогда, когда есть условия, циклы и т. п.Здесь 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 writeln(group[i].name); writeln(group[i].age); writeln(group[i].height); end endend.