Блок-схема

program zadanie9;
type luggage=record
        n:integer;
        weight:real;
end;
const passenger_n = 5;
const luggages:array[1..passenger_n] of luggage =
        (
        (n:1;weight:0.5),
        (n:2;weight:1.4),
        (n:2;weight:2.6),
        (n:3;weight:8.0),
        (n:1;weight:29.0)
        );
var i:integer;
    av_sum:real;
    av_weight:real;
    av_nmb_sum:integer;
    av_nmb:real;
    is_here:boolean;
begin
        for i:=1 to passenger_n do
                av_sum := av_sum + luggages[i].weight/luggages[i].n;
        av_weight := av_sum / passenger_n;  
        write ('condition 1 (+-0.3): ');
        for i:=1 to passenger_n do
                if abs(luggages[i].weight/luggages[i].n - av_weight) <= 0.3 then
                        write(i, ' ');
        writeln;
        write ('Число пассажиров имеющих более двух вещей: ');
        for i:=1 to passenger_n do
                if luggages[i].n > 2 then
                        write (i, ' ');
        writeln;
        for i:=1 to passenger_n do
                inc(av_nmb_sum, luggages[i].n);
        av_nmb := av_nmb_sum / passenger_n;
        write ('Пассажиры, количество вещей которых превосходит среднее число вещей: ');
        for i:=1 to passenger_n do
                if luggages[i].n > av_nmb then
                        write(i, ' ');
        writeln;
        for i:=1 to passenger_n do
                if (luggages[i].n = 1) and (luggages[i].weight < 30) then
                begin
                        is_here := true;
                        break;
                end;
        if is_here then
                writeln ('Имеется пассажир,багаж которого состоит из одной вещи весом менее 30 кг')
        else
                writeln ('Не имеется пассажир,багаж которого состоит из одной вещи весом менее 30 кг');
end.